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I.  INTRODUCTION 

The  purpose  of  this  program  of  research  was  the  development  of  a  high 
performance  Multiplanar  Volumetric  3D  Display  (MVD)  to  serve  as  the  primary 
information  display  for  an  Advanced  Volumetric  Surgical  Simulator  (AVSS).  The  future 
AVSS  will  combine  together  a  Multiplanar  Volumetric  Display  with  a  pair  of  force 
feedback  haptic  interfaces  to  form  a  general  purpose  tactile  task  simulation  platform  upon 
which  to  run  a  wide  range  of  surgical  simulation  software.  The  goal  of  this  research  was 
to  develop,  integrate  and  demonstrate  the  components  and  software  application 
programming  interface  (API)  of  the  MVD. 


II.  BODY  OF  REPORT 

A  Multiplanar  Volumetric  Display  is  a  true  three  dimensional  display  system  that 
creates  images  having  all  of  the  viewing  characteristics  of  real  objects.  Figure  1  shows  a 
schematic  diagram  of  the  MVD.  The  MVD  is  essentially  a  rear  projection  3D  display. 
The  overall  system  consists  of  a  computer  connected  through  a  high  speed  data  link  to  an 
external  3D  framebuffer.  The  framebuffer  in  turn  feeds  data  at  a  high  rate  to  a  high  speed 
video  projector.  The  images  from  the  video  projector  are  projected  into  an  electronic 
variable-depth  projection  volume  known  as  the  Multiplanar  Optical  Element  (MOE).  The 
MOE  converts  the  high  speed  stream  of  2D  images  from  the  video  projector  into  a  single 
3D  image  by  stopping  each  2D  image  at  the  appropriate  depth.  Proprietary  Multiplanar 
Anti-aliasing  algorithms  smooth  the  transitions  between  image  slices  to  create  continuous 
appearing  3D  images.  The  resulting  3D  image  can  be  viewed  directly  within  the  MOE, 
just  like  looking  at  fish  in  a  fish  tank,  or  may  be  projected  out  into  free  space  by  a  real 
image  projection  optical  system.  The  projected  image  is  free  from  the  volume  of  the 
MOE  and,  therefore,  can  be  touched,  felt  and  interacted  with  via  a  co-aligned  haptic 
interface,  making  development  of  a  surgical  simulator,  or  other  tactile  task  trainer, 
possible. 


Multiplanar 

Optical 

Computer  Highspeed  Element 

Projector 

Buffer 

-  « 


HDVD 
Real  Image 
Projector 


Floating 
3D  Image 


MOK 

Dl  :  V:_i 


Figure  1.  Schematic  diagram  of  the  Multiplanar  Volumetric  3D  Display  showing  the  computer 
system  feeding  data  to  the  high  speed  projector  whose  sequence  of  2D  image  slices  are  converted  to  a  3D 
image  by  the  Multiplanar  Optical  Element.  The  real  image  projector,  in  turn,  creates  a  floating  image. 
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The  three  dimensional  image  created  by  the  Multiplanar  Volumetric  Display  is  truly 
3D,  not  an  optical  illusion.  The  points  of  light  that  compose  the  image  (voxels)  are 
actually  located  in  space  where  they  appear.  This  means  that  3D  images  created  by  a 
Multiplanar  Volumetric  Display  have  all  of  the  characteristics  of  real  objects.  They  have 
a  wide  field  of  view,  and  can  be  “looked  around”,  in  both  the  horizontal  and  vertical 
directions.  They  require  the  viewer’s  eyes  to  correctly  alter  focus  and  convergence  as 
their  gaze  shifts  from  the  front  to  the  back  of  the  image.  The  3D  image  is  visible  to  a 
number  of  viewers  at  any  distance,  each  with  the  appropriate  perspective  view.  Unlike 
other  volumetric  display  systems,  the  HyperCube  has  no  moving  parts,  does  not  generally 
require  laser  light,  and  is  highly  compatible  with  existing  display  components  and 
manufacturing  methodologies.  This  last  point  is  critical  to  rapidly  transition  the 
technology  from  Research  and  Development  to  commercial  manufacturing  and  sales. 

A  number  of  key  component  requirements  emerge  from  the  preceding  description. 
The  high  speed  video  projector  must  be  fast  enough  to  project  the  2D  images  slices  that 
make  up  the  3D  image  at  a  rate  high  enough  to  avoid  image  flicker  in  the  3D  image.  And 
the  MOE  planes  must  be  highly  transparent  in  the  transparent  state,  high  scattering  in  the 
scattering  state,  and  make  rapid  and  clean  transitions  between  these  two  states. 

There  will  be  references  throughout  this  document  to  the  refresh  rate,  field  rate  and 
update  rate  of  the  display.  The  refresh  rate  is  the  rate  at  which  the  entire  volume  image  is 
produced.  This  rate  must  be  greater  than  35  Hz,  and  preferably  at  least  50  Hz,  to  avoid 
image  flicker.  The  field  rate  as  the  rate  at  which  each  2D  image  slice,  or  field,  is 
projected  into  the  MOE.  For  example,  in  a  12  plane  MVD  operating  at  a  refresh  rate  of 
41.7  Hz  requires  a  field  rate  of  500  Hz.  The  update  rate  is  the  rate  at  which  new  3D 
content  can  be  transferred  from  the  computer  to  the  MVD.  For  realistic  and  responsive 
visual  simulator  this  rate  must  be  at  least  15  Hz,  but  preferably  greater  than  30  Hz. 

Table  1  lists  the  performance  specifications  of  the  prototype  Multiplanar 
Volumetric  Display  developed  under  this  program.  Overall  the  project  was  very 
successful.  There  were  nine  distinct  improvements  in  the  MVD  technology  over  the 
previous  generation.  These  were: 

a.  Development  of  both  SGI  and  PC  interface  capabilities 

b.  Development  of  the  MVD  Application  Programming  Interface  (API)  software 

c.  Identification  and  adoption  of  a  high  speed  data  transfer  interface  technology 

d.  Development  of  a  custom  MVD  framebuffer  incorporating  Multiplanar  Anti-aliasing 
in  hardware 

e.  Customization  of  analog  ferroelectric  liquid  crystal  on  silicon  (aFLCoS)  spatial  light 
modulators  for  use  in  a  high  speed  video  projector 

f.  Development  of  a  projection  engine  architecture  to  convert  the  spatial  light  modulator 
into  a  video  projector 

g.  Development  of  improved  MOE  materials 
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h.  Development  of  large  MOE  cells 

i.  Development  of  a  MOE  driver 

Of  all  of  these  improvement,  only  the  customization  of  the  light  modulator  reached 
less  than  100%  of  its  performance  goals.  This  component  is  a  512  x  512  pixel  analog 
ferroelectric  liquid  crystal  on  silicon  (aFLCoS)  spatial  light  modulator  from  Boulder 
Nonlinear  Systems,  Inc.  (Boulder,  CO)  capable  of  500  DC -balanced  fields  per  second.  As 
will  be  discussed  further  in  section  C.3,  the  development  of  the  custom  aFLCoS  SLM 
was  the  most  difficult  and  time  consuming  task  of  the  project  and  led  to  an  appreciable 
extension  of  its  duration.  Ultimately,  the  performance  of  this  component,  in  terms  of 
uniformity  and  contrast  ratio,  had  a  significant  negative  impact  on  the  visual  performance 
of  the  MVD,  leading  to  another  iteration  of  display  development  before  DMA  can 
commercialize  the  MVD  technology.  The  performance  issues  of  the  SLM  will  be 
discussed  in  greater  detail  in  section  C.3. 


MVD  Transverse  resolution 

512  x  512  pixels 

Light  modulator 

Analog  Ferroelectric  Liquid 
Crystal  on  Silicon  (aFLCoS) 

Color  depth 

21 -bits  (2,097,152  colors) 

Number  of  MOE  planes 

12 

Total  number  of  image  voxels 

3.14  million 

Image  volume 

15”  x  13”  x  3.1” 

Image  refresh  rate 

41.7  Hz 

Image  update  rate  (plane  transfer) 

14  Hz 

Table  1.  Performance  specifications  of  the  Multiplanar  Volumetric  Display 
developed  under  this  project. 

Statement  of  Work  from  Original  Proposal 

The  statement  of  work  from  original  proposal  described  the  following  tasks: 

Task  1  -  MOE  improvements 

The  MOE  optical  and  electrical  characteristics  will  be  improved  with  particular 
attention  paid  to  issues  of  clear  state  transparency,  off-axis  haze  and  switching  speed.  The 
research  will  focus  on  improvements  in  the  PDLC  materials  for  the  MOE. 

Task  2  -  Volumetric  real  image  projector 
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A  carefully  designed  volumetric  projection  system  will  be  engineered  to  provide 
optimal  characteristics  for  the  application  of  projecting  three  dimensional  images  from 
the  MOE.  Field  of  view  and  ergonomic  consideration  will  be  addressed. 

Task  3  -  High  Frame  Rate  Image  source  (video  projector)  development 

DMA  will  develop  a  high  frame  rate  image  source  based  upon  Texas  Instruments 
Digital  Light  processing  (DLP)  technology.  The  image  source  will  be  required  to  produce 
images  of  at  least  15-bit  color,  with  a  frame  rate  greater  than  1,000  field  per  second.  The 
architecture  of  the  DLP  engine  will  be  redesigned  to  permit  direct  integration  with  a  high 
performance  graphics  computer  digital  interface. 

Task  4  -  High  speed  data  link 

DMA  will  develop  high  speed  three-dimensional  image  processing  hardware  and 
software  based  upon  Silicon  Graphics  hardware  to  deliver  data  to  the  high  frame  rate 
image  source.  The  task  will  involve  transforming  a  three-dimensional  OpenGL  data  set 
into  a  multiplanar  data  set  and  delivering  the  information  to  the  image  source  in  real¬ 
time.  It  also  involves  the  design  and  construction  of  a  high  bandwidth  interface  between 
the  computer  system  and  the  image  source. 

Task  5  -  MVD  API  software  and  display  integration 

Integration  will  consist  of  physically  connecting  the  computer  system  and  the  high 
frame  rate  image  source,  establishing  proper  communications,  and  integrating  software 
elements. 

It  is  conceptually  more  understandable  to  discuss  the  results  of  this  work  in  the 
order  of  the  data  flow  from  computer  to  the  viewer,  rather  than  in  the  order  given  above. 

A.  TASK  5a  -  MVD  API  software 

The  MVD  can  be  driven  by  either  a  personal  computer  (PC)  running  the  Window 
NT  4.0  operating  system  or  by  a  Silicon  Graphics  workstation.  The  PC  currently  used  is  a 
Dell  computer  with  dual  833  MHz  Pentium  HI  processors  and  equipped  with  a  Nvidia 
GeForce2  3D  graphics  card  that  is  controlled  through  the  standard  OpenGL  graphics  API. 
The  SGI  workstation  is  an  Octane  SSI  with  dual  195  MHz  R 10000  RISC  processors  and 
a  PCI  card  interface. 

The  MVD  application  programming  interface  (API)  is  a  library  of  routines  used  to 
add  MVD  functionality  to  computer  source  code.  The  MVD  API  was  written  for  the  PC 
in  Pascal  using  Borland’s  Delphi  IDE  (see  Appendix  A)  and  in  C++  for  the  SGI.  It 
consists  of  the  following  commands: 

a.  mvdSet_state  -  sets  the  operating  parameters  of  the  MVD  including  the  number 
of  planes,  transverse  resolution  of  each  plane,  and  a  range  of  flags  to  control  various 
MVD  operating  modes. 

b.  mvdlnit  -  initializes  both  internal  memory  space  and  the  high  speed  data  transfer 

card. 
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c.  mvdReadgl  -  reads  the  color  and  z-buffer  data  from  the  graphics  processor’s 
framebuffer  back  into  main  memory. 

d.  mvdFormat_data  -  combines  the  separate  color  and  z-buffer  data  into  a  32-bit 
word  per  pixel  (see  Appendix  B  for  details  of  the  32-bit  data  word  format). 

e.  mvdTransfer  -  performs  handshaking  with  the  framebuffer  electronics  to  confirm 
readiness  to  receive  data  and,  if  confirmed,  initiates  the  data  transfer  by  the  data  transfer 
card  and  then  monitors  the  process  for  completion. 

f.  mvdClose  -  frees  internal  memory  space  and  shuts  down  the  data  transfer  card. 

The  API  functions,  mvdSet_state  and  mvdlnit,  are  generally  called  during  an 
application’s  initialization  phase.  mvdSet_state  is  an  overloaded  function  that  takes  as 
input  a  parameter  flag  and  a  parameter  value.  It  is  called  at  least  three  times  to  initialize 
the  MVD  state  variables  defining  the  number  of  MOE  planes,  and  the  transverse  display 
resolution.  Following  the  calls  to  mvdSet_state,  mvdlnit  is  called  to  initialize  the  MVD 
hardware,  mvdlnit  returns  an  integer  to  indicate  either  success  or  the  reason  for 
initialization  failure.  Future  API  releases  will  write  the  MVD  hardware  parameters 
(number  of  planes,  and  transverse  resolution)  to  the  MS  Windows  registry  during 
installation. 

3D  images  for  the  MVD  are  created  in  the  computer  in  the  standard  way.  The 
programmer  defines  3D  polygonal  surfaces,  texture  maps,  color  and  lighting  models 
through  conventional  OpenGL  calls.  The  result  is  a  2D  image  on  the  computer  monitor 
that  is  created  by  the  graphics  hardware  through  its  rendering  processor.  Associated  with 
the  image  on  the  monitor  is  both  the  color  data  and  an  associated  depth  map  (z-buffer)  in 
the  framebuffer  of  the  graphics  hardware.  The  z-buffer  has  the  same  x,  y  resolution  as  the 
color  image  and  is  the  depth,  in  scaled  coordinates,  of  each  pixel  in  the  color  image. 

The  API  functions,  mvdReadgl,  mvdFormat_data,  and  mvdTransfer  are  called 
following  the  end  of  the  conventional  rendering  process.  In  OpenGL  this  occurs  after  the 
glSwapBuffers  command  is  issued.  These  MVD  API  commands  are  called  in  sequence  to 
create  an  image  in  the  MVD.  Following  the  return  from  mvdTransfer,  the  entire 
rendering  process  can  begin  again.  Given  the  explicit  nature  of  writing  images  to  the 
MVD  it  can  be  updated  as  frequently  or  infrequently  as  the  programmer  may  desire. 

It  should  be  noted  that  the  choice  of  the  3D  graphics  card  can  strongly  affect  the 
display  update  rate  by  affecting  how  long  it  takes  to  transfer  data  from  the  framebuffer 
back  to  main  memory.  Although  any  OpenGL  graphics  card  can  be  used  not  all  graphics 
cards  will  provide  good  update  rates.  The  Nvidia  GeForce2  graphics  card  currently  in  use 
can  transfer  both  the  color  and  depth  framebuffer  data  from  a  512  x  512  window  to  main 
memory  in  11.7  msec,  more  than  fast  enough  for  realtime  simulation.  The  framebuffer 
read  back  time  can  vary  widely  depending  on  the  choice  of  graphics  card. 

Two  different  data  transfer  modes  from  computer  to  MVD  are  currently  supported 
by  both  hardware  and  API.  These  are  plane  mode  and  block  mode,  and  are  established 
through  the  mvdSet_state  function.  In  plane  transfer  mode  the  number  of  data  words 
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transferred  to  the  MVD  is  equal  to  the  number  of  pixels  in  a  single  2D  image  slice,  512  x 
512  in  the  current  hardware.  The  pixels  are  sent  in  order  from  the  top,  left  to  the  bottom, 
right  with  each  data  word  giving  the  RGB  color  and  depth  of  each  pixel,  with  the  depth 
scaled  by  the  API  to  be  a  fixed  point  value  in  the  range  from  0  to  Npianes-  The  depth  data 
is  used  by  the  input  processor  of  the  framebuffer  to  determine  the  MVD  plane,  or  planes, 
on  which  the  data  belongs.  In  this  way  only  one  voxel  at  any  depth  at  a  particular  x,  y 
location  is  illuminated.  The  result  is  3D  image  that  is  either  a  single  3D  surface,  a  3D 
wireframe,  or  a  3D  point  cloud.  Multiple  3D  surfaced  images  cannot  be  produced  in 
plane  transfer  mode. 

In  block  transfer  mode,  the  data  for  every  voxel  in  the  display  is  transferred  from 
the  computer  to  the  display,  including  voxels  whose  color  is  black.  In  the  current 
prototype,  this  constitutes  the  transfer  of512x512xl2  data  words,  obviously  taking  12 
times  longer  to  transfer  to  the  display  than  a  plane  transfer  mode  image.  In  block  mode, 
the  depth  information  in  the  data  words  is  ignored  since  the  ordering  of  data  words 
determines  their  x,  y  and  z  location  within  the  display.  Block  mode  allows  multi-surface 
3D  images  and  space  filling  volumetric  data,  such  as  MRI  or  CT  data,  to  be  displayed  in 
the  MVD. 

B.  TASK  4  -  High  Speed  Data  Link  to  Image  Source 

A  high  speed  data  transfer  card  from  National  Instruments,  Inc.  (Austin,  TX)  is 
used  to  transfer  3D  images  to  the  MVD.  This  card  (PCI-DIO-32HS)  is  capable  of  directly 
reading  data  out  of  main  memory  through  a  process  known  as  direct  memory  access 
(DMA),  and  can  transfer  32-bit  parallel  data  words  from  the  computer  to  a  framebuffer  at 
up  to  76  MBytes  per  second.  Accordingly,  the  card  can  transfer  a  plane  transfer  mode 
image  from  the  computer  to  the  framebuffer  in  13.7  milliseconds,  and  a  block  mode 
formatted  512x512x12  voxel  image  in  164  milliseconds.  Appendix  C  gives  the  pin 
assignments  for  the  connection  between  the  data  transfer  card  and  the  MVD  framebuffer. 

The  data  transfer  card  is  available  with  device  drivers  for  both  Apple  Macintosh 
computers  and  Wintel  PCs.  An  objective  of  this  project  was  to  enable  the  MVD  to  also 
operate  with  Silicon  Graphics  workstations.  Therefore,  a  device  drive  was  written  by 
DMA  to  provide  this  additional  connectivity.  The  source  code  of  the  device  driver  is 
attached  as  Appendix  D. 

C.  TASK  3  -  High  Frame  Rate  Image  Source 

The  high  frame  rate  image  source  consists  of  an  external  multiplanar  framebuffer 
and  the  high  speed  video  projector.  The  video  projector  consists  of  the  spatial  light 
modulator  and  the  optical  projection  engine,  which  is  further  sub-divided  into  the 
illumination  subsystem,  color  separation  optics,  color  combination  optics  and  projection 
lens.. 


C.l.  MVD  framebuffer  electronics 

The  MVD  framebuffer  was  custom  developed  by  DMA  for  this  project.  It  is  shown 
conceptually  in  figure  2  and  complete  framebuffer  schematics  are  included  in  Appendix 
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E.  It  consists  of  three  identical  printed  circuit  boards,  one  for  each  color  channel  of  the 
high  speed  video  projector.  The  cable  from  the  data  transfer  card  terminates  on  the  red 
framebuffer  board  which  has  been  designated  as  the  master  controller.  The  green  and 
blue  brightness  data  and  the  depth  data  is  transferred  from  the  red  board  to  the  green  and 
blue  slave  boards  through  two  short  cables  identical  to  the  input  cable.  Data  clock,  input, 
and  output  synchronization  signals  are  sent  from  the  red  board  to  the  green  and  blue 
boards  through  BNC  cables. 

Each  board  consists  of  an  input  processor,  multiplanar  framebuffer  and  output 
drivers.  The  input  processor  is  a  field  programmable  gate  array  (FPGA)  that  receives  the 
pixel  data  from  the  data  transfer  card,  performs  multiplanar  antialiasing  on  the  pixel  data 
(more  on  this  later)  and  then  places  the  processed  data  into  the  multiplanar  framebuffer. 
The  multiplanar  framebuffer  consists  of  25  Mbytes  of  dual  ported  memory  arranged  in  a 
double  buffer  architecture.  The  double  buffered  architecture  allows  one  12.5  MByte  sub¬ 
buffer  to  written  while  the  other  sub-buffer  is  being  display,  and  permits  a  high  display 
refresh  rate  in  the  presence  of  a  lower  and  variable  3D  image  update  rate.  Essentially,  the 
framebuffer  receives  data  from  the  computer  serially  at  76  Mbytes/sec  and  outputs  it  in 
parallel  to  the  video  projector  at  a  rate  of  1000  Mbytes/sec/color.  The  framebuffer  is  large 
enough  to  hold  50  two  dimensional  images,  each  512  x  512  pixels  and  21-bit  color. 


Output  to  Green  SLM 


Input  from  Computer 


Output  to  Red  SLM 


Figure  2.  Schematic  diagram  of  MVD  framebuffer  consisting  of  three  identical  boards,  one  for  each 
color.  The  red  board  acts  as  the  master  and  transfers  brightness,  depth  and  synchronization  signals  to  the 
green  and  blue  boards.  IP  is  the  input  processor,  FB  is  the  framebuffer. 

The  output  driver  section  of  each  board  consists  of  32  digital-to-analog  converters 
(DAC)  arranged  in  parallel,  each  delivering  data  to  a  16  column  x  512  row  sub  array  of 
the  light  modulator  of  the  high  speed  video  projector.  The  DACs  are  equipped  with 
internal  RAM  that  is  used  as  a  look-up-table  (LUT)  used  to  linearize  the  nonlinear 
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voltage  to  brightness  transfer  function  of  the  aFLCoS  spatial  light  modulators.  The  DAC 
receives  an  7-bit  brightness  value  from  the  MVD  framebuffer,  uses  it  as  an  address  to 
retrieve  a  10-bit  value  from  the  LUT,  then  converts  the  10-bit  value  to  a  current  in  the 
range  of  0  milliamps  to  13.62  milliamps.  The  current  signal  from  the  DACs  is  delivered 
to  each  SLM  through  a  100  conductor  ribbon  cable  that  terminates  in  a  small  printed 
circuit  board.  The  board  has  8  quad  op-amps  that  are  configured  as  current  to  voltage 
converters.  The  resulting  voltage  range  is  0  volts  to  4.32  volts.  These  voltages  are  applied 
to  the  input  pins  of  the  SLM.  Current  signals,  rather  than  voltage,  are  used  to  provide  a 
high  level  of  noise  immunity.  The  data  clock  to  the  DACs  is  33  MHz. 

Although  the  3D  image  within  the  MOE  actually  consists  of  a  stack  of  discrete  2D 
image  slices,  the  image  can  be  made  to  appear  continuous  through  the  use  of  a  processing 
algorithm  developed  previously  be  DMA  called  multiplanar  anti-aliasing.  Multiplanar 
ant-aliasing  eliminates  the  abrupt  transitions  between  MVD  image  slices  by  effectively 
creating  voxels  that  appear  to  the  viewer  to  be  between  two  MOE  planes. 

To  use  multiplanar  anti-aliasing  the  voxel  depth  data  is  transferred  to  the 
framebuffer  as  a  fixed  point  number  consisting  of  a  6-bit  integer  portion  and  a  5 -bit 
fractional  portion.  The  integer  portion  determines  the  pair  of  planes  on  which  the 
brightness  data  is  written  and  the  fractional  portion  determines  their  relative  brightness’. 
For  example,  if  the  integer  portion  is  5  the  brightness  data  will  be  written  to  planes  5  and 
6.  If  the  fractional  part  is  0  then  100%  of  the  brightness  is  on  plane  5  and  0%  of  the 
brightness  is  on  plane  6.  If  the  fraction  part  is  16  then  50%  of  the  brightness  is  on  plane  5 
and  50%  on  plane  6.  For  the  maximum  fractional  value  of  31,  plane  5  gets  1/32,  or  3.1% 
and  plane  6  gets  31/32,  or  96.9%. 

The  antialiasing  calculation  is  carried  out  on-the-fly  by  the  input  processor.  For 
each  data  value  transferred  the  brightness  and  the  fractional  value  of  the  depth  is  used  to 
compute  two  new  brightness  values.  These  values  are  written  to  the  portions  of  the 
framebuffer  memory  determined  by  integer  portion  of  the  depth  value. 

C.2.  Projection  Engine 

The  original  design  for  the  projection  engine  of  the  high  speed  video  projector  is 
shown  schematically  in  figure  3  and  the  final  design  is  shown  in  figure  4.  The  original 
design  employed  a  500  Watt  Cermax  Xenon  arc  lamp  (Model  #  EX500-13F)  from  ILC 
Technology  (Sunnyvale,  CA,  now  a  division  of  EG&G)  as  the  light  source  and  is  similar 
to  the  design  described  in  reference  1 .  The  light  from  the  arc  lamp  is  focused  on  an  8  mm 
x  8  mm  x  100  mm  BK7  integrating  rod  to  produce  uniform  illumination.  The  light  from 
the  output  face  of  the  integrating  rod  is  relayed  to  the  light  modulators  by  relay  lenses  1 
and  2  and  the  field  lenses.  Along  the  way  the  light  is  split  by  dichroic  mirrors  from  OCLI 
(Santa  Rosa,  CA)  into  red,  green  and  blue  channels.  These  are  routed  by  turning  mirrors 
toward  the  appropriate  light  modulator.  After  passing  through  the  field  lens  the  light  is 
incident  on  a  wide  bandwidth,  wide  angle  polarizing  beam  splitter  (PBS)  from  OCLI.  The 
vertically  polarized  component  of  the  light  is  reflected  90°  by  the  PBS,  passes  through  a 
zero-order  half  wave  plate  from  Newport  Corp.  (Irvine,  CA),  and  illuminates  the  light 
modulator  with  an  image  of  the  end  of  the  integrator  rod.  The  half  wave  plate  allows  the 
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polarization  axis  of  the  light  to  be  rotated  for  optimization  of  the  light  modulator  contrast 
ratio.  The  light  modulator  reflects  the  light  back  toward  the  PBS  and  rotates  the 
polarization  depending  on  the  voltage  supplied  to  each  pixel.  Rotation  by  90°  cause  the 
light  to  be  transmitted  by  the  PBS  toward  an  x-cube  beam  combiner  from  Balzers  Thin 
Films  (Golden,  CO).  The  x-cube  combines  red,  green  and  blue  light  entering  through 
three  faces  into  a  single  full  color  beam  exiting  the  fourth  face.  This  light  is  imaged  by  a 
55  mm  F.L.,  100  mm  B.F.L.,  F/2.5  projection  lens  from  Buhl  Systems.  The  large  back 
focal  length  provides  the  space  needed  for  the  x-cube  and  the  PBS  between  the  SLM  and 
the  projection  lens.  The  projection  lens  can  be  focused  between  0.5  meters  and  5  meters 
thereby  accommodating  a  wide  range  of  MOE  sizes. 


Each  light  modulator  is  illuminated  by  a  uniform  8  mm  x  8  mm  light  beam  having 
an  FWHM  angular  range  of  ±  15°  (F/1.9)  and  a  bandwidth  of  approximately  90  nm 
centered  at  455  nm  for  the  blue,  545  nm  for  the  green  and  635  nm  for  the  red. 


Green  Dichroic 
Color  Separator 


Figure  3.  Schematic  diagram  of  the  original  design  of  the  high  speed  video  projector.  The  heart  of 
the  illumination  system  is  a  500  watt  Cermax  xenon  arc  lamp. 

Limitations  in  the  performance  of  the  spatial  light  modulator  when  illuminated  by 
broad  band,  low  F/#  light  forced  the  redesign  of  the  projection  engine  to  that  shown  in 
figure  4.  These  limitations,  described  in  section  C.4  caused  the  3D  images  produced  by 
the  original  design  to  have  low  contrast  in  the  range  of  30:1.  By  comparison,  the  contrast 
of  commercial  video  projectors  is  in  the  range  of  400:1. 
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The  design  of  figure  4  has  the  same  PBS,  half  wave  plates,  x-cube  color  combiner 
and  projection  lens  as  the  original,  but  has  the  arc  lamp  based  illumination  sub-system  is 
replaced  by  one  that  uses  collimated,  monochromatic  laser  light  to  illuminate  the  light 
modulator. 


Green  Dichroic 


Figure  4.  Schematic  diagram  of  the  final  design  of  the  high  speed  video  projector.  The  original 
Cermax  xenon  arc  lamp  has  been  replaced  by  lasers  to  provide  illumination. 

Full  color  illumination  is  provided  by  a  combination  of  an  argon  ion  laser, 
simultaneously  emitting  green  light  (514.5  nm)  and  blue  light  (476  nm),  and  a  krypton 
ion  laser  that  emits  red  light  (647  nm).  The  system  also  employs  an  acousto-optic  light 
modulator  for  each  color  to  blank  the  laser  light  during  the  60%  of  the  field  period 
associated  with  DC-balancing  of  the  light  modulator.  The  result  was  a  dramatic 
improvement  to  the  projector  contrast  ration  to  over  250:1  for  the  green  and  red  channels 
and  over  150:1  for  the  blue  channel,  adequate  to  demonstrate  the  feasibility  of  the  rest  of 
the  display  design,  but  inadequate  for  commercialization.  Again  the  limitation  in 
performance  is  caused  by  the  spatial  light  modulators. 
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C.3.  Spatial  Light  Modulator 

The  original  statement  of  work  indicated  that  DMA  would  attempt  to  use  the  Texas 
Instruments’  DLP  light  modulator  technology  in  the  prototype  MVD.  Unfortunately,  at 
the  time  TI  did  not  allow  third  parties  to  develop  modified  versions  of  its  DLP 
technology  for  novel  applications,  thereby  preventing  its  use  in  the  MVD.  Fortunately,  a 
reasonable  replacement  technology  was  identified  from  Boulder  Nonlinear  Systems,  Inc. 
(BNS,  Boulder,  CO). 

The  three  spatial  light  modulators  in  the  high  speed  video  projector  are  custom 
components  developed  by  BNS  for  this  project.  They  are  reflective  liquid  crystal  on 
silicon  (LCoS)  light  modulators  in  which  a  silicon  wafer  is  fabricated  through  CMOS 
processing  into  an  2D  array  of  reflective  aluminum  pixel  electrodes  with  associated 
storage  capacitors  and  electronic  switches  to  form  a  silicon  backplane  (ref.  2,  3).  Onto 
this  backplane  is  applied  a  liquid  crystal  alignment  layer  (often  rubbed  polyimide),  a  2-5 
micron  thick  layer  of  liquid  crystals,  and  a  cover  glass  with  a  transparent  conductive  layer 
of  indium  tin  oxide  (ITO)  to  serve  as  a  counter  electrode.  The  maturity  and  resolution  of 
CMOS  processing  allows  a  large  number  of  backplanes  to  be  produced  simultaneously  on 
a  silicon  wafer,  each  with  a  large  number  of  pixels  (up  to  2400  x  2048)  with  small  sizes 
(down  to  5  microns)  and  with  a  high  fill  factor  (up  to  95%)  to  be  fabricated  at  low  cost 
and  with  high  yield. 

Although  conventional  LCoS  light  modulators,  such  as  those  from  Three  Five 
Systems,  Inc.,  may  use  the  type  of  nematic  liquid  crystal  found  in  LCDs,  these  are  far  too 
slow  (~  10  msec)  for  the  high  field  rate  requirements  of  the  MVD  (-100  microseconds). 
BNS  produces  LCoS  light  modulators  that  use  ferroelectric  liquid  crystals  aligned  in  such 
a  way  as  to  produce  analog  grayscale  optical  modulation  as  a  function  of  pixel  electrode 
voltage. 

There  are  a  number  of  important  requirements  for  LCoS  light  modulators  that  are 
used  in  video  projectors  (ref.  4).  They  must  have  a  high  fill  factor  (the  fraction  of  a 
pixel’s  area  that  reflects  light)  in  order  to  provide  a  high  optical  efficiency.  The 
aluminum  used  for  the  pixel  electrodes  must  be  optically  flat  in  addition  to  being  a  good 
conductor  so  that  there  will  be  a  good  specular  reflection.  The  entire  CMOS  die  of  the 
light  modulator  must  be  globally  flat  (planarized)  to  within  a  fraction  of  a  wavelength  of 
light  to  provide  a  uniform  thickness  of  the  liquid  crystal  layer.  And  the  CMOS  circuitry 
under  the  pixel  electrode  array  must  be  shielded  from  illumination  by  the  incident  light 
which  would  otherwise  cause  the  pixel  voltages  to  be  discharged. 

At  the  beginning  of  this  project  BNS  had  an  existing  analog  ferroelectric  spatial 
light  modulator  that  was  used  for  optical  computing  applications.  Because  they  are  not 
intended  for  projection  applications,  these  SLMs  have  a  low  fill  factor,  rough  aluminum 
pixel  electrodes,  and  poor  die  planarity.  BNS  was  involved  in  a  project  to  apply  a 
sacrificial  layer  to  the  top  of  these  die,  planarize  the  sacrificial  layer,  and  then  apply  a 
spatially  registered  array  of  high  reflectance,  high  fill  factor  pixel  electrodes.  DMA  was 
going  to  procure  three  of  these  SLMs  to  use  in  the  MVD  high  speed  video  projector. 
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Unfortunately,  the  effort  was  not  successful  as  the  resulting  SLMs  were  not  only  not 
highly  reflective  and  well  planarized,  but  did  not  function  electrically. 

DMA  then  contracted  with  BNS  to  develop  a  custom  analog  ferroelectric  LCoS 
SLM  having  the  projector  component  characteristics  described  above  as  the  starting 
principles  of  the  CMOS  design.  The  resulting  design  was  then  fabricated  at  a  CMOS 
silicon  foundry  into  five  8”  diameter  wafers  containing  a  total  of  roughly  1500  usable  die. 
Each  die  has  512  x  512  pixels  on  15  micron  centers  with  an  85%  fill  factor  with  the  pixel 
electrode  area  occupying  7.68  mm  x  7.68  mm.  After  dicing  a  wafer  into  individual  die, 
the  final  SLM  is  completed  as  described  above.  Figure  5  shows  microphotographs  of  the 
one  of  the  SLM  die  as  it  appears  on  the  8”  silicon  wafer. 


Figure  5.  Microphotographs  of  the  8”  wafer  of  CMOS  silicon  backplanes  of  the  BNS  custom  analog 
ferroelectric  light  modulator.  The  image  on  the  left  shows  several  adjacent  SLM  die  while  the  image  on  the 
right  is  a  zoom  in  of  the  indicated  area  showing  the  individual  15  micron  pixel  electrodes.  The  color  in  the 
right  hand  image  is  an  artifact  of  the  microscope. 

A  number  of  custom  aFLCoS  light  modulators  were  evaluated  before  identifying 
three  components  that  provided  good  performance  at  the  red,  green  and  blue  laser 
wavelengths  used.  Graphs  of  their  optical  signal  verses  SLM  pixel  voltage  are  shown  in 
figure  6.  In  each  case  the  half  wave  plate  angle  is  adjusted  to  provide  the  best  overall 
black  level  at  some  pixel  voltage.  The  data  is  then  used  to  compute  LUT  that  is  loaded 
into  the  framebuffer  DACs  in  order  to  linearize  the  optical  signal  as  a  function  of  the 
digital  grayscale  value  from  the  computer. 

The  final  image  of  the  high  video  projector  and  hence  the  MVD  was  found  to  suffer 
from  the  relatively  low  contrast  ratio  and  low  uniformity  of  the  BNS  SLMs.  These 
problems  are  caused  by  an  insufficient  uniformity  of  the  alignment  of  the  liquid  crystals 
that  is,  in  turn,  is  caused  by  insufficient  planarization  of  the  silicon  backplane.  This  type 
of  problem  is  common  in  LCoS  light  modulators  (ref.  4)  and  is  caused  by  the  unavoidable 
non-uniformity  of  the  density  of  the  semiconductor  structures  created  during  CMOS 
photolithography.  The  pixel  array  area  of  the  SLM  has  a  high  density  of  structures 
whereas  the  shift  registers  at  the  periphery  of  the  pixel  array  have  a  low  density.  The 
result  is  that  the  planarization  process  erodes  the  edges  of  the  light  modulator  more  that 
the  center.  This  creates  difficulty  in  producing  a  high  quality  of  liquid  crystal  alignment 
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as  well  as  variations  in  the  thickness  of  the  liquid  crystal  layer.  The  affect  of  these  issues 
on  the  final  3D  image  was  most  severe  when  using  incoherent,  wide  bandwidth,  wide 
angle  arc  lamp  illumination.  Use  of  narrow  band,  collimated  laser  illumination 
dramatically  improved  the  light  modulator  contrast  ratio  allowing  the  prototype  display  to 
function  at  a  reasonable,  but  still  sub-commercial,  level. 


SLM  Pixel  Voltage  (Volts)  SLM  Pixel  Voltage  (volts) 


SLM  Pixel  Voltage  (volts) 


Figure  6.  Graphs  of  the  optical  signal  verses  SLM  pixel  voltage  for  the  red,  green  and  blue  SLMs. 
The  graphs  clearly  show  the  grayscale  behavior  of  the  SLMs.  The  vertical  scale  is  arbitrary. 

The  process  for  eliminating  the  light  modulator  defects  is  straightforward  but 
expensive.  It  involves  iterative  modifications  to  the  CMOS  design  followed  by 
fabrication  and  testing  of  the  resultant  design.  These  modification  entail  the  arrangement 
of  dummy  structures  in  the  SLM  periphery  to  obtain  uniform  planarization.  Additional 
CMOS  processing  steps  are  also  necessary  to  eliminate  any  height  discontinuities 
between  the  pixel  electrodes  and  inter-electrode  spaces  that  can  also  affect  alignment 
uniformity.  Each  iteration  of  this  process  can  cost  between  $50,000  and  $100,000  and 
take  3  months.  Given  this  great  cost,  DMA  has  determined  that  near-term  future  MVD 
systems  will  be  built  using  light  modulators  whose  uniformity  is  well  developed.  Top 
among  these  is  the  DLP  technology  from  Texas  Instruments  which  will  provide  the  light 
modulation  technology  for  the  next  generation  MVD. 

D,  TASK  1  -  MOE  Improvements 

The  MOE  for  this  project  was  greatly  improved  in  terms  of  its  size  and  material 
speed  over  the  previous  generation.  The  previous  MOE  used  shutter  cells  from 
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Crystaloid,  Inc.  (Kent,  OH)  that  are  6”  x  6”  whereas  the  new  MOE  uses  shutter  cells  that 
are  15.1”  x  13.5”  from  LXD,  Inc.  (Kent,  OH).  To  utilize  the  new  cells  a  considerable 
refinement  of  the  liquid  crystal  vacuum  filling  equipment  and  technique  was  required.  A 
much  large  vacuum  chamber  was  designed  and  built  to  accommodate  the  larger  cells. 
Additionally,  a  vacuum  manipulation  system  designed  to  fill  five  cells  simultaneously 
was  designed  and  built.  Mechanical  drawings  of  the  chamber  and  cell  manipulator  is 
shown  in  Appendix  F.  A  hydraulic  cell  press  for  squeezing  the  filled  cells  down  to  a 
uniform  thickness  was  constructed  by  adding  large  ground  steel  press  platens  to  a 
standard  10  ton  hydraulic  press  (Dake  Dura-Press  Model  Force  10).  The  platens  are 
larger  than  the  MOE  cells  and  allow  the  press  to  uniformly  compress  the  cells  to  their 
design  thickness  (14  microns).  Mechanical  drawings  of  the  cell  press  are  included  in 
Appendix  G. 

The  filling  technique  refinements  included  careful  control  of  the  minimum  vacuum 
pressure,  careful  control  of  pressure  ramping  profile,  and  electrical  preconditioning  of 
cells  to  eliminate  shorts.  Special  LC  material  handling  techniques  were  also  developed  to 
guarantee  mixture  performance  after  being  filled  into  cells. 

Also  developed  for  this  project  was  a  custom  MOE  driver.  The  schematics  are 
included  in  Appendix  H.  The  driver  was  designed  to  be  as  general  purpose  as  possible 
given  the  early  uncertainties  about  the  voltage,  timing,  and  MOE  cell  number. 
Accordingly  the  driver  is  designed  to  drive  up  to  50  MOE  cells,  at  voltages  ranging  from 
20  volts  to  300  volts  and  with  pulse  widths  from  0.1  milliseconds  up  to  9.99  milliseconds. 
The  MOE  driver  is  designed  to  drive  the  MOE  cells  with  a  bipolar  electrical  waveform 
like  that  shown  in  figure  7.  A  cell  is  powered  into  the  clear  state  by  applying  a  field 
greater  than  10  volts/micron.  To  become  scattering  the  voltage  is  rapidly  brought  to  0 
volts.  The  voltage  is  held  at  0  volts  for  a  period  of  roughly  2  milliseconds  (zero  period 
duration)  before  being  brought  back  to  the  clear  state  by  applying  a  voltage  of  the 
opposite  polarity  as  before.  The  use  of  a  bipolar  waveform  causes  the  applied  field  to 
average  out  to  zero  thereby  avoiding  potential  shutter  degradation  known  to  be  associated 
with  DC  applied  fields. 

Figure  8  shows  the  transmission  verses  time  for  a  typical  MOE  cell  at  a  number  of 
different  zero  period  durations.  The  cell  exhibits  an  ~1  msec  period  after  the  field  is 
removed  during  which  it  remains  highly  transparent.  Then  the  cell  switches  quickly  and 
cleanly  to  a  low  transmission  state  in  approximately  500  microseconds.  The  transmission 
remains  low  until  the  field  is  reapplied,  after  which  it  makes  an  immediate  jump  back  to 
high  transmission.  The  off-to-on  switching  time  depends  on  the  width  of  the  zero  period 
but  is  approximately  50  microseconds  in  the  range  of  zero  periods  appropriate  to  MVD 
operation  (FWHM  ~2  msec). 

To  develop  the  LC  materials  for  this  project  we  subcontracted  with  Dr.  Deng-Ke 
Yang  of  the  Liquid  Crystal  Institute  (LCI)  of  Kent  State  University.  Dr.  Yang  performed 
the  original  published  research  (ref.  5)  that  led  to  the  material  used  in  the  previous  MVD 
generation  and  so  was  deemed  to  be  the  best  person  to  help  develop  new  materials  for  the 
MVD. 
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Figure  7.  Bipolar  drive  waveform  applied  to  MOE  cells  by  the  MOE  driver.  A  bipolar  waveform  has 
an  average  field  of  0  volts  to  avoid  cell  degradation  caused  by  DC  fields. 

These  liquid  crystal  materials  are  of  a  class  known  as  polymer  stabilized  cholesteric 
textures  (PSCT)  in  which  a  small  percentage  (-2.5%  by  weight)  of  a  liquid  crystal 
polymer  is  added  in  its  unpolymerized,  monomer  state  to  a  chiral  nematic  liquid  crystal. 
The  pitch  length  of  the  chiral  nematic  is  chosen  to  be  in  the  infrared  making  its 
interaction  with  visible  light  weak.  By  filling  the  liquid  crystal/monomer  mixture  into  the 
cell,  aligning  the  liquid  crystal  with  an  applied  electric  field  and  then  polymerizing  the 
monomer,  the  cell  become  highly  scattering  when  the  field  is  remove.  Dr.  Yang  spent  a 
number  of  months  trying  a  range  of  different  nematic  liquid  crystals,  chiral  additives,  and 
liquid  crystal  polymers  before  identifying  a  mixture  that  provides  the  desired  electro¬ 
optic  characteristics.  This  mixture  is  by  no  means  optimized  but  is  adequate  for  this 
generation  of  MVD.  Future  MOE  work  will  focus  on  material  optimization  as  well  as 
engineering  the  multi-layer  coatings  within  the  MOE  cell  to  minimize  losses  due  to 
reflections. 
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Figure  8.  Transmission  verses  time  at  a  number  of  different  zero  period  durations  for  a  typical  MOE 
cell.  Transmission  losses  are  dominated  by  approximately  8%  reflection  between  air-glass  interfaces. 

E.  TASK  5b  -  MVD  Integration 

The  integration  of  the  Multiplanar  Volumetric  Display  developed  under  this 
program  took  place  over  approximately  six  months.  The  greatest  challenges  of  the 
integration  process  was  that  of  carefully  characterizing  the  pixel  voltage  to  optical  output 
transfer  functions  shown  in  figure  6.  Each  SLM  must  be  tested  separately  using  a  linear 
look-up-table  in  the  DAC  section  of  the  framebuffer.  The  resulting  data  is  then  inverted, 
scaled  and  loaded  into  the  LUT  to  linearize  the  output  of  the  SLM.  Additional  integration 
steps  included  careful  color  convergence  and  color  balancing  to  achieve  a  reasonable 
white  point. 

Figure  9.  shows  a  photograph  of  the  entire  integrated  MVD  system.  Indicated  in  the 
photo  are  the  computer,  framebuffer,  lasers,  high  speed  video  projector,  MOE  driver  and 
both  a  small  and  large  MOE.  The  small  MOE,  developed  under  a  previous  non¬ 
government  program  uses  12  planes,  each  6”  x  6”  and  is  used  for  full  color  images  since 
the  available  laser  power  is  insufficient  for  full  color  images  in  the  large  MOE.  Figure  10 
shows  a  close-up  photograph  of  the  completed  high  speed  video  projector.  Indicated  are 
the  lasers,  framebuffer,  light  modulators,  x-cube  color  combiner  and  projection  lens. 

Figures  11,  12,  and  13  show  photographs  of  3D  images  in  the  small  MOE.  Figure 
11  is  a  solid  3D  skull  while  figure  12  is  the  same  image  in  wireframe.  Figure  13  is  a 
brightly  color  3D  knot  drawn  by  DMA  to  showcase  the  full  color,  grayscale  capability  of 
the  display.  The  graininess  in  these  images  is  caused  by  the  coherent  nature  of  the  laser 
light.  Use  of  arc  lamp  illumination  in  future  systems  will  eliminate  this  effect. 
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Figure  11.  Close-up  photograph  of  the  operating  MVD.  In  the  background  to  the  left  is  the  computer 
screen  showing  the  conventional  2D  image,  while  to  the  right  is  the  full  color  3D  image  in  the  small  MOE. 
Limited  power  from  the  lasers  prevents  production  of  a  full  color  image  in  the  large  MOE. 


Figure  12.  Close-up  photograph  of  the  operating  MVD.  The  image  is  a  3D  wireframe  version  of  the 
same  image  as  in  figure  11. 
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Figure  13.  Close-up  photograph  of  the  operating  MVD.  The  image  is  a  full-color  geometric  knot 
developed  to  exhibit  the  full  color  performance  of  the  display. 

F.  TASK  2  -  Volumetric  Floating  Image  Projector 

The  extensive  and  unexpected  extra  effort  and  expense  necessary  to  develop  the 
custom  aFLCoS  light  modulator  resulted  in  the  decision  not  to  pursue  the  development  of 
real  image  projection  optics  for  the  floating  images  projector.  Given  the  straight  forward 
nature  of  this  element  of  the  project  there  is  little  risk  or  challenge  in  developing  the 
optics  at  a  later  date. 


III.  KEY  RESEARCH  ACCOMPLISHMENTS 

•  Development  of  both  SGI  and  PC  interfaces  to  the  Multiplanar  Volumetric  Display 

•  Development  of  the  MVD  software  Application  Programming  Interface  (API) 

•  Identification  and  adoption  of  a  high  speed  data  transfer  interface  technology 

•  Development  of  a  custom  MVD  framebuffer  incorporating  Multiplanar  Anti-aliasing 

•  Customization  of  analog  ferroelectric  liquid  crystal  on  silicon  (aFLCoS)  spatial  light 
modulators  for  use  in  a  high  speed  video  projector 

•  Development  of  a  projection  engine  architecture  to  convert  the  spatial  light  modulator 
into  a  video  projector 
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Development  of  improved  MOE  materials 

Development  of  large  MOE  cells  and  the  tools  and  methods  to  fill  them  correctly 
Development  of  a  MOE  driver 


IV.  REPORTABLE  OUTCOMES 

The  most  significant  outcome  of  the  project  was  the  dramatic  advancement  of  the 
MVD  technology  toward  a  commercial  performance  level.  Although  the  prototype  MVD 
described  herein  is  not  adequate  for  commercialization,  it  has  played  a  crucial  role  in 
helping  to  identify  the  final  improvement  necessary  to  achieve  it.  In  fact,  the  majority  of 
the  subsystems  of  the  display  performed  in  ways  that  can  be  used  commercially.  Only  the 
light  modulator  needs  to  be  refined.  This  refinement  is  taking  place  as  of  this  writing. 
Texas  Instruments  has  greatly  reduced  the  level  of  restrictions  on  novel  uses  of  their  DLP 
technology  allowing  DMA  to  develop  a  version  of  the  MVD  using  DLP.  Given  to 
excellent  performance  of  every  other  subsystem  of  the  display,  it  is  expected  that  the  next 
generation  prototype  will  exhibit  all  of  the  performance  characteristics  necessary  for 
commercialization.  Following  this  step  the  Advanced  Volumetric  Surgical  Simulator  can 
be  developed. 


V.  CONCLUSIONS 

The  result  of  this  project  was  a  significant  advancement  of  the  Multiplanar 
Volumetric  Display  technology  toward  a  commercial  performance  level.  Nearly  all  of  the 
improvements  in  the  technology  undertaken  during  this  project  were  successful.  The  one 
area  still  in  need  of  improvement  is  the  spatial  light  modulator  of  the  high  speed  video 
projector.  The  solution  to  that  is  issue  is  being  pursued  currently  with  the  expectation  that 
by  the  third  quarter  of  2001  an  MVD  system  of  commercial  performance  will  be 
operational. 

Future  work  also  includes  continuing  to  extend  the  addressing  modes  of  the  MVD 
framebuffer  to  increase  the  image  update  rate  toward  realtime,  development  of  the 
graphics  processor  by  a  third  party  that  supports  the  MVD  directly,  continued 
improvements  to  the  MOE  materials  and  cells,  and  the  extension  of  the  API  to 
incorporate  tactile  interaction. 

From  a  fundamental  scientific  standpoint  the  commercial  MVD  systems  resulting 
from  this  project  will  enable  the  visualization  of  3D  information  in  a  way  never  before 
possible.  From  medicine  to  science  to  industry  the  MVD  will  have  a  sweeping  impact 
that  will  accelerate  our  comprehension  of  all  forms  of  information  and  enable  new 
breakthroughs  over  a  tremendous  breadth  of  industries. 
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VII.  APPENDICES 
A.  MVD  API  Source  Code 

The  following  pages  contain  the  source  code  of  version  1.0  of  the  MVD  API  written  in 
Borland  Delphi  5.0. 
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un,it  MOpUnit; 
interface 

uses  Forms , Windows , Dialogs , SysUtils , Math, openGLl2 ,  NiDAQUnit; 

{  special  types  } 

type 

MVD32=longword ;  //unsigned  32  bit 
PWord  =  ^Word; 

PLongword  =  ALongWord; 

PByte  =  AByte ; 

TMVDrec  =  record 
ProcessBool , 

WriteBool , 

BlockFlag : boolean;  //Whether  Plane  or  block  mode,  plane  assumed  if  not  block 
GammaBool , 

BackDropBool , 

AutoScaleBool iboolean;  //Auto  Depth  Scale  enabled 

MVD_near,  MVD_f ar :  double;  //Used  if  not  auto  scaling  (world  space  coordinates) 
MVD_NumP lanes :word; 

MVD_SizeW,  MVD_SizeH ;  word; 

MVD_clip_near ,  MVD_clip_far :  double;  //Used  if  not  auto  scaling  (z  buffer  space) 

end; 

const 

//READ  FROM  IN  INI  OR  REGISTRY  OR  SOMEWHERE 

MOESize_W=longword (512 ) ; 

MOESize_H=longword (512 ) ; 

MOESizeSquared=longword (MOESize_W*MOESize_H ) ; 

//  define  MVD  state  indices 


MVDState_NumPlanes  =  1; 

MVDState_ProcessBool  =  2; 

MVDState_WriteBool  =  3; 

MVDState_GammaBool  =  4 ; 

MVDState_BackDropBool  =  5 ; 

MVDState_AutoScaleBool  =  6; 

MVDState_MVD_near  =  7 ; 

MVDState_MVD_f ar  =  8; 

MVDState_MVD_SizeW  =  9; 

MVDState_MVD_SizeH  =  10; 

MVDState_Clip_near  =  11; 

MVDState_Clip_f ar  =  12; 

MVDState_Blockf lag  =  13; 

//define  mvdError  indices 
mvdError_state  =  1 ; 

mvdError_memory  =  2  ; 

mvdError_nidag  =  3 ; 


VAR 

MVDRec : TMVDRec ;  //MAKE  PRIVATE  AFTER  DEBUG 

//ULTIMATELY  PROBABLY  WANT  TO  INTEGRATE  THESE  TWO 
BlockTransf erBuf f er2 :  array  of  MVD32; 

PlaneTransf erBuf f er2 :  array  of  MVD32; 

M0ESizeSquared2 : longword ;  / /2  because  2nd  revision  of  this  var 

rgbabuffer2  :  array  of  longword;  //2  because  2nd  revision  of  this  var,  NB  open  array,  (perf 
hit?) 

zbuffer2  :  array  of  Word;  //2  because  2nd  revision  of  this  var,  NB  open  array,  (perf 

hit?) 

pscale  :  single ; 
ack2state : integer  =  0; 


1C 


,  req2state : integer  =  0; 

KZScale : single ; 

MOEUnit_NumPlanes  :  word; 

MOEUnit_NearZClip  : single  =  0.1; 

MOEUnit_FarZClip  : single  =  200; 

FP_KZScale : longword;  //made  global  2/1/01  to  allow  switchoff  of  depth  scanning 

GammaLUT : array [ 0 .. 127 ]  of  byte; 

Faster_GammaLUT : array [ 0 .  .  2  55 ]  of  byte ; 

maxZ ; longword ; 
minZ : longword ; 


///  MVD  FUNCTION  PROTOTYPES 
function  mvdlnit:  integer; 
mvdClose ; 

mvdSet_state ( state_var ,  value:word);  overload; 
mvdSet_state ( state_var ; word;  value : boolean) ;  overload; 
mvdSet_state (state_var :word;  value : double ) ;  overload; 


procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 


mvdRead_state ( state_var : word;  var  value : 
mvdRead_state (state_var :word;  var  value: 
mvdRead_state ( state_var : word;  var  value: 
mvdTransf er ; 

FASTER_mvdFormat_data ; 
mvdFormat_data ; 
mvdClearPlaneBuf fer ; 

mvdReadGL ( top,  left:  word);  overload; 
mvdReadGL;  overload; 


word);  overload; 
boolean) ;  overload; 
double);  overload; 


implementation 

//////////////////////////////////////////////////////////////////////////////// 


PROCEDURE  SET_ACK2 ( state : smallint ) ; 

BEGIN 

if  (stateoO)  and  (stateol)  then  messagedlg  (  '  ACK2  state  must  be  0  or  1'  ,  mterror ,  [mbok]  ,  0 ) 
nidaqcall ( DIG_Out_Line (1,4,3, state ) ) ; 

END; 

FUNCTION  GET_REQ2 : smallint ; 
var  state : smallint ; 

bailoutcount : integer; 

BEGIN 

bailoutcount : =0 ; 

repeat 

nidaqcall (DIG_In_Line (1,4,3, ©state) ) ; 
inc (bailoutcount ) ; 

until  (state=l)  or  (bailoutcount  >  1001); 

if  bailoutcount>1001  then  messagedlg (' GET_REQ2  Bailed  out  after  1001 
iterations ' , mterror , [mbok] , 0 ) ; 
result : =state ; 

END; 


FUNCTION  GET_OFFSET_FROM_XYP (x, y, p : word) : longword; 

//var  add, col , COLSIZE : 1 ongword; 

begin 

(* 

add: -0; 

COLSIZE: =16*512*NumPlanes;  //the  number  of  pixels  before  we  hit  next  column  on  same  plane 
//allow  for  preceding  cols  to  go  back  to  plane  0 
add:  =add+  (p*16*512)  ; 

//calculate  column  &  allow  for  preceding  columns... 

col:=x  div  16; 

add: =add+ (col*colsize) ; 

//allow  for  rows 


add:  =add+  (y*16)  ; 

//allow  for  pixinrow 
add: =add+ (x  mod  16); 

//so .  .  . 
result : =add; 

//so. . . 

*) 

result:=(p  shl  13)+(((x  div  16)  shl  13 ) *MOEUnit_NumPlanes ) + ( y  shl  4)+(x  mod  16); 

//so  if.  .  . 

//x=0,  y=0  p=0  result= (0  shl  13)+(((0  div  16)  shl  13)  *MOEUnit_NumPlanes) +  (0  shl  4)+(0  mod 
16)  =0 

/ /x= 5 11,  y=511  p=ll  result=90112+3047424+8176+15=3145727 
//512''2=262144 *4=1048576 

end; 

// - 

/////////////////////////////////////////////////////////// 

//  Clear  the  PlaneTransferBuffer  (set  all  values  to  zero  // 
/////////////////////////////////////////////////////////// 
procedure  mvdClearPlaneBuf f er  ; 

begin 

fillchar ( PlaneTransf erBuf f er2 , sizeof ( PlaneTransf erBuf fer2 ) , 0) ; 

end; 

// - 

//FIXME  It  would  be  better  if  the  returned  a  boolean  indicating  a  bailout  condition  or  not.  JTS 
1/2001 

Procedure  WaitForEndOfTransf er (QtyToTransf er , Bailoutceiling ; longword) ; 
var  BailoutCount : integer ; 
ulRemaining : Longint ; 

begin 

BailoutCount : =0 ; 
ulRemaining : =QtyToTransf er ; 

While  (ulRemaining  >  0)  and  (BailoutCount <BailoutCeiling )  do 

begin 

nidaqcall (DIG_Block_Check (1,  1,  ©ulRemaining) ) ; 

inc (BailoutCount)  ; 

end; 

if  BailoutCount =BailoutCeiling  then  messagedlg (' Bailed  out  waiting  for  end  of  transfer  after 
' +inttostr (Bailoutceiling ) + ' 

iterations, ' +#13#10 ' ( ' +inttostr (ulRemaining) + ' / ' +inttostr ( QtyToTransf er ) + ' 

remaining) '+#13#10+'ie  ' +inttostr (QtyToTransf er -ulRemaining ) + '  done ' , mtwarning , [mbok] , 0 ) ; 

end  ; 

// - 


// 


// - 

// - 

procedure  Build_GammaLUT ; 
var  i : integer ; 

begin 

for  i:=0  to  127  do  GammaLUT [ i ] : =round ( 127 ‘power ( ( i /127 ) , 3 ) ) ;  //quad  function 


//do  it  twice  to  fill  zone  128.. 255  which  is  where  we'll  be  reading  it. 
for  i : =0  to  255  do  Faster_GammaLUT [ i ] ; =round ( 127 ‘power ( ( ( i  shr  1) /127) ,3) ) ; 
//mask  off  the  upper  bit  here  so  we  don't  have  to  do  it  in  the  critical  loop 

for  i:=0  to  255  do  Faster_GammaLUT [ i ] ; =Faster_GammaLUT [ i ]  and  127; 


end; 

// - 

{TMVDrec  =  record 
ProcessBool , 

Wri teBool , 

GammaBool , 

BackDropBool , 

AutoScaleBool : boolean; 

MVD_near,  MVD_far:  double; 

MVD_NumPlan.es :  word; 

MVD_SizeW,  MVD_SizeH:  longword; 
end; } 

function  mvdlnit:  integer; 
var  returnU32 :  u32  ; 
returnil6 :  il6 ; 

begin 

{***  SET  UP  MVD  STATE  ***} 

{**  Allocate  RAM  &  Ini t  Nidaq  stuff  ***} 

//FIXME:  VALIDATE  MVD_SizeW,  MVD_SizeH,  Numplanes  etc,  errmess  if  not 
with  MVDRec  do 
begin 

if  (MVD_SizeW=0 )  or  (MVD_SizeH=0 )  or  (MOESizeSquared=0 )  then 
begin 

result : =mvdError_state ; 
exit; 

end; 

M0ESizeSquared2 : =MVD_SizeW*MVD_SizeH; 

SetLength ( PlaneTransf erBuf fer2 ,  MOESizeSquared ) ; 

/ /messagedlg ( ' PlaneTranf erBuf fer : 

'  +inttostr (Length ( PlaneTransf erBuf fer2 ) ) , mt error , [mbok] , 0) ; 
if  Length ( PlaneTransf erBuf fer2 ) <>  MOESizeSquared  then 
begin 

result ; =mvdError_memory ; 
exit; 

end; 

SetLength ( BlockTransf erBuf fer2 ,  MVD_NumPlanes *MOESizeSquared ) ; 

/ /messagedlg ( 'BlockTransf erBuf fer2 : 

' +inttostr (Length (BlockTransf erBuf fer2 ) )  ,mterror,  [mbok] ,  0) ; 

if  Length ( BlockTransf erBuf fer2 ) <>  MVD_NumPlanes *MOESizeSquared  then 
begin 

result ; =mvdError_memory ; 
exi  t  ; 

end; 


SetLength ( rgbabuf f er2 ,  M0ESizeSquared2 ) ; 

/ /messagedlg ( ' rgbabuf fer2 ;  ' +inttostr (Length (rgbabuf fer2) ) ,mterror,  [mbok] , 0) 

if  Length ( rgbabuf fer2 ) <>  M0ESizeSquared2  then 

begin 

result : =mvdError_memory ; 
exi  t  ; 

end; 

SetLength ( zbuffer2 ,  M0ESizeSquared2 * sizeof ( word) ) ; 

/ /messagedlg ( ' zbuffer2 ;  ' +inttostr (Length (zbuffer2) ) ,  mterror,  [mbok] ,  0) ; 

if  Length ( zbuffer2 ) <>  M0ESizeSquared2 *sizeof (word)  then 

begin 

result ; =mvdError_memory ; 
exit  ; 

end; 

//FIXME:  Good  architecture  here?  hw  dependance  on  NIDAQ? 


//get  nidag  version 
returnU32 : =0 ; 

nidaqcall (Get  NI  DAO  Version (@returnI16) ) ; 

NIDAQversion : =inttohex ( returnU32  and  $FFFF,3); 

//get  nidag  device  name 
returnil6 : =23 ; 
returnil6 : =0 ; 

nidaqcall ( Init_DA_Brds ( 1 , @returnil6 ) ) ; 

NIDAQdevicename : =device_name (returnil6 ) ; 

//get  nidag  base  address 
returnU32 : =0 ; 

nidaqcall (Get_DAQ_Device_Inf o ( 1 ,  ND_B AS E_ADDRE S S , @returnU32 ) ) ; 

NIDAQbaseaddress :=' Ox' +inttohex (returnU32 , 8) ; 

//configure  the  groups 

nidaqcall (DIG_Grp_Config ( 1 ,  1,  4,  0,  1)); 

//set  up  group  of  ports  for  burst  handshaking,  using  the  REQ,  ACK,  and  PCLK  signals. 
nidaqcall (DIG_Grp_Mode ( 1 ,  1,  3,  0,  0,  0,  0)); 

/ /reverse  the  clock 

nidaqcall (Set_DAQ_Device_Info (1,  ND_CLOCK_REVERSE_MODE_GRl ,  ND_OFF) ) ; 

//align  the  data 


//nidagcall  (Align_DMA_Buffer(l,  13,  @BlockTransf  erBuf  fer  [0] ,  NumWordsToTransfer,  NumWordsToTransf  er,  < 
result : =0 ; 
end;  //  with  MVDRec 

end; 

// - 

{***  DEALLOCS  RAM  &  UNCONFIGURES  NIDAQ  ***} 

procedure  mvdClose ; 

begin 

PlaneTransf erBuf f er2  :=nil; 

BlockTransf erBuf fer2  :=nil; 
rgbabuffer2 :=nil; 
zbuf fer2 : =nil ; 

//Clear  the  block  operation. 

DIG_Block_Clear ( 1 ,  1 )  ; 

//Unconfigure  group. 

nidaqcall (DIG_Grp_Config ( 1 ,  1,  0,  0,  0)); 

end; 

// - 

procedure  mvdTransfer; 

var  NumWordsToTransf er : longword ;  //number  of  32  bit  words  to  transfer 

begin 

with  MVDRec  do 
begin 

if  blockflag  then 
begin 

NumWordsToTransf er  :=  MVD_NumP lanes *MOESizeSquared2 ; 

//  set  PCLK2  to  HI  to  set  block  transfer 
nidaqcall ( DIG_Out_Line ( 1 , 4 , 1 , 1 ) ) ; 

//volume  handshaking:  read  reg 2,  if  high  then  cycle  ack2 
if  Get_REQ2  <>0  then  begin  Set_ACK2(l);  Set_ACK2(0);  end; 

//Start  the  pattern  generation  output  of  count  "items". 

nidaqcall (DIG_Block_Out ( 1 ,  1,  ©BlockTransf erBuf fer2  [0] ,  NumWordsToTransf er )) ; 

end  else 
begin 

NumWordsToTransf er  :=  MOESizeSquared2 ; 

//  set  PCLK2  to  LO  to  set  z-buffer  transfer 
nidaqcall ( DIG_Out_Line ( 1 , 4 , 1 , 0 ) ) ; 

//volume  handshaking:  read  reg 2,  if  high  then  cycle  ack2 
if  Get_REQ2  <>0  then  begin  Set_ACK2(l);  Set_ACK2(0);  end; 

//Start  the  pattern  generation  output  of  count  "items". 

nidaqcall (DIG_Block_Out ( 1 ,  1,  ©PlaneTransf erBuf fer2  [ 0 ] ,  NumWordsToTransf er )) ; 


(  ,  end; 

WaitForEndOfTransf er (NumWordsToTransf er , 10001 ) ; 
end ;  / /wi th  MVDRec 

end; 

// - 

//  MULTIPLE  OVERLOADED  VERSIONS  OF  mvdSet_state 

// - 

//NB  Error  handling  should  be  integrated  across  all  overloaded  variants 

//change  these  to  bool  returning  functions 

procedure  mvdSet_state ( state_var ,  value: word);  overload; 

begin 

with  MVDRec  do  begin 
case  state_var  of 

//  define  MVD  state  indices 

MVDState_NumPlanes  :  MVD_NumP lanes  :=  value; 

MVDState_MVD_SizeW :  MVD_SizeW:=  value; 

MVDState_MVD_SizeH  :  MVD_SizeH:=  value; 

else  messagedlg (' Problem  with  using  MVD_set_state ! ! '  ^terror, [mbok],0); 
end;  //  case 
end;  //  with  MVDRec 
end; 

procedure  mvdSet_state (state_var :word;  value : boolean ) ;  overload; 
begin 

with  MVDRec  do  begin 
case  state_var  of 

//  MVD  state  indices 

MVDState_ProcessBool :  ProcessBool  :=  value; 

MVDState_WriteBool :  WriteBool  :=  value; 

MVDState_GammaBool  :  GammaBool  :=  value; 

MVDState_BackDropBool :  BackDropBool  :=  value; 

MVDState_AutoScaleBool :  AutoScaleBool  :=  value; 

MVDState_Blockf lag :  BlockFlag  :=  value; 

else  messagedlg (' Problem  with  using  MVD_set_state ! ! '  ,mterror, [mbok],0); 
end;  //case 
end;  //  with  MVDRec 
end; 

procedure  mvdSet_state ( state_var : word;  value : double) ;  overload; 
begin 

with  MVDRec  do  begin 
case  state_var  of 

//  define  MVD  state  indices 
MVDState_MVD_near  :  MVD_near:=  value; 

MVDState_MVD_far  :  MVD_f ar : =  value; 

MVDState_Clip_near  :  MVD_clip_near  :=  value; 

MVDState_Clip_far  :  MVD_clip_far  :=  value; 

else  messagedlg (' Problem  with  using  MVD_set_state ! ! '  ,mterror,  fmbok] ,0) ; 
end ;  //case 
end;  //  with  MVDRec 

end  ; 

// - 

procedure  mvdRead_state ( state_var : word;  var  value:  word);  overload; 
begin 

/ /messagedlg ( 'MVDRead_state:  word'  ,mterror,  [mbok] , 0) ; 
with  MVDRec  do  begin 
case  state_var  of 

//  define  MVD  state  indices 

MVDState_NumPlanes :  value : =MVD_NumP lanes ; 

MVDState_MVD_sizeW :  value : =MVD_SizeW; 

MVDState_MVD_SizeH :  value : =MVD_SizeH ; 

else  messagedlg (' Problem  with  using  MVD_set_state ! ! '  ,mterror, [mbok] ,0) ; 

end;  //  case 
end;  //  with  MVDRec 

end; 


procedure  mvdRead_state (state_var :word;  var  value:  boolean);  overload; 
begin 

//messagedlgf  'MVDRead_state :  boolean' ,mterror,  [mbok] , 0) ; 
with  MVDRec  do  begin 
case  state_var  of 

//  MVD  state  indices 

MVDState_ProcessBool  :  value : =ProcessBool ; 

MVDState_WriteBool :  value : =WriteBool ; 

MVDState_GammaBool  :  value : =GammaBool ; 

MVDState_BackDropBool :  value : =BackDropBool ; 

MVDState_AutoScaleBool :  value : =AutoScaleBool ; 

MVDState_Blockf lag :  value : =BlockFlag ; 

else  messagedlg ( 'Problem  with  using  MVD_set_state ! ! '  ,mterror, [mbok] ,  0)  ; 
end ;  //case 
end;  //  with  MVDRec 
end; 

procedure  mvdRead_state ( state_var : word;  var  value:  double);  overload; 
begin 

with  MVDRec  do  begin 
case  state_var  of 

//  define  MVD  state  indices 
MVDState_MVD__near  :  value  :  =MVD_near  ; 

MVDState_MVD_far :  value : =MVD_far ; 

MVDState_Clip_near :  value : =MVD_clip_near ; 

MVDState_Clip_far :  value : =MVD_clip_far ; 

else  messagedlg ( 'Problem  with  using  MVD_set_state ! ! '  , mterror, [mbok] ,0) ; 

end;  //case 
end;  //  with  MVDRec 

end; 

// - 


{ 

NEED  TO  SPEED  UP  THE  GAMMA  LUT, 

NEED  TO  SPEED  UP  THE  RGBLW  SPLIT 
NEED  TO  SPEED  UP  THE  JJ  CALCULATION 
} 


procedure  mvdFormat_data ; 

var  //PROCESS  PIXEL  STUFF:  LOCAL  VARIABLES  SEEM  TO  BE  FASTER  (CREATED  IN  CACHE?) 
Kzscale : single ; 
pzbuf fer : PWord; 
prgbabuf fer : PLongword; 
temp : AChar ; 

i : longword ; 
j : longword ; 
z : word ; 
lw : longword ; 
j  j : longword ; 
rgblw : longword ; 
r , g , b : byte ; 

begin 

/ /FIXME  GHASTLY  PATCHWORK  STUFF  HERE! 

KZscale : =1 ; //default 

FP_KZScale : =6553 6 ;  / / ie  1  in  16  bit  fixed  point 
minZ : =20 ; 
maxZ : =45 ; 
with  MVDrec  do 
begin 

if  AutoScaleBool  then 
begin 

//scan  zbuffer,  getting  minz  &  maxz 
minZ : =65535; 
maxZ : =0 ; 

pzbuf fer : =@zbuf fer2  [0]  ; 

for  i:=0  to  MOESizeSquared2 -1  do 


i  ,  begin 

z : =pzbuf f erA ;  //get  z  value  [0.. 65535] 

if  z< 65535  then  //don't  include  'infinite'  Z  values  in  max  min 

begin 

if  z>maxZ  then  maxZ:=z  else  if  z<minZ  then  minZ:=z; 
end; 

inc (pzbuf f er ) ; 

end; 

end;  {  else 
begin 

//assume  minZ  &  maxZ  are  the  same  as  the  gl  near/ far  clip  planes 

// 

minZ : =round  ( (MOEUni  t_FarZClip/  (MOEUni  t_FarZClip-MOEUni  t_NearZClip) )  *  (1-  ( MOEUni  t_NearZClip/MVD_nt 
// 

maxZ :  =round  ( (MOEUni  t_FarZClip/  (MOEUni  t_FarZClip-MOEXJni  t_NearZClip) )  *  (1  -  (MOEUni  t_NearZClip/MVD_fi 
minZ : =round  (MVD_clip_near*65536) ; 
maxZ : =round (MVD_clip_far*6553 6)  ; 
end;  } 

//compute  scaling  factor 

if  MaxZoMinZ  then  KZscale:=(MVD_NumPlanes-l)/(MaxZ-MinZ); 

FP_KZScale : =round(KZscale*65536 ) ;  //convert  to  16  bit  fixed  point  format 
//***  PROCESS  THE  DATA  **** 
if  ProcessBool  then 
begin 

//BUILD  MVD32S 

prgbabuf f er : =@rgbabuf f er2 [ 0 ] ; 
pzbuf fer : =@zbuffer2 [0] ; 

for  j:=0  to  (M0ESizeSquared2 -1 )  do  //for  each  pixel .. . 

begin 

//GET  P  &  D 

z : =pzbuf f er A ;  //get  z  value  [minZ.. maxZ] 

if  BackDropBool  then 
begin 

if  z>maxz  then  z  :=  maxz ; 

end; 

z:=z-minZ;  //z  [0 . . .maxZ-minZ] 

LW: =Z*FP_KZSCALE; 

//  LW:  =LW+6553 6 ;  //FUDGE  TO  FIX  PLANES,  adds  on  extra  plane 

//SPLIT  COLOR 

rgblw ; =prgbabuf  f er  ~ ;  //ABGR 
r:=  rgblw  and  $FF ; 
g:=( rgblw  shr  8)  and  $FF; 
b:= (rgblw  shr  16); 

//GAMMA  CORRECT 
if  GammaBool  then 
begin 

r : =GammaLUT [ r  shr  1 ]  shl  1 ; 
g : =GammaLUT [ g  shr  1]  shl  1; 
b : =GammaLUT [b  shr  1]  shl  1; 

end; 

//BUILD  MVD32  STRUCTURE 


m 

PUSH 

EBX 

//CALCULATE  d 

&  p 

mov 

ebx , LW 

/ / EBX= . 

.  .pppppp 

. . . ddddd 

xnov 

eax, ebx 

/ /EAX=pppppppp 

pppppppp 

dddddddd 

dddddddd 

shr 

eax , 16 

//EAX= . 

pppppppp 

pppppppp 

mov 

cl ,  al 

/ / CL=P 

shr 

bx,  11 

/ / EBX=pppppppp 

pppppppp 

. . . ddddd 

//BUILD  MVD32 

from 

d,p,  rgba 

shl 

bx,  4 

//  bx= 

. d 

dddd. . . . 

mov 

ah,  bh 

//EAX= . 

. d 

xor 

bh,  bh 

//  bx= 

dddd. . . . 

shl 

bx,  1 

//  bx= 

. d 

ddd . 

mov 

al ,  bh 

//EAX= . 

. d 

. d 

shl 

eax , 16 

//EAX= . d 

. d 

xor 

bh,  bh 

//  bx= 

ddd . 

shl 

bx,  1 

//  bx= 

. d 

dd . 

mov 

ax ,  bx 

/  /EAX= 

. d  . d 

. d  dd . 

or 

al ,  cl 

//EAX= 

. d  . d 

. d  ddpppppp 

mov 

ebx , eax 

//EBX= 

. d  . d 

. d  ddpppppp 

mov 

ah,  r 

mov 

al ,  g 

shl 

eax, 16 

mov 

ah,  b 

mov 

al,  0 

and 

eax, $FEFEFE00 

//EAX= 

rrrrrrr.  ggggggg. 

bbbbbbb . 

or 

eax , ebx 

/ /EAX=rrrrrrrd  gggggggd  bbbbbbbd  ddpppppp 

//STORE  RESULT 
mov  rgblw, eax 
POP  EBX 

end  ; 

//CALCULATE  PLANE  BUFFER  INDEX 
{  jj:=(((j  div  16)  mod  32)  shl  13)  + 

( (j  div  MVD_SizeW)  shl  4)  + 

(j  mod  16) -1;  //jj:  =  (col*8192)  +  (row*16)+pix;  pp_pix-l  =  FUDGE  TO  REMOVE 
ROGUE  VERTICAL  LINES} 

/ /CALCULATE  PLANE  TRANSFER  BUFFER  OFFSET 

asm 

PUSH  EBX 
mov  eax,J 
shr  eax, 4 
and  eax, 31 
shl  eax, 13 
mov  ebx , J 
shr  ebx, 9 
shl  ebx, 4 
add  eax , ebx 
mov  ebx , J 
and  ebx , 1 5 
add  eax , ebx 
dec  eax 
mov  JJ, eax 
POP  EBX 

end; 

PlaneTransf erBuf f er2  [jj] :=rgblw; 

inc (prgbabuf f er ) ; 

inc (pzbuf f er ) ; 

end; //next  j 
end ; / /processbool 

//***  WRITE  THE  DATA  **** 

//  if  WriteBool  then  SendPlaneTransferBuffer; 

//mvdTransfer; 

end; 

end; 


procedure  FASTER_mvdFormat_data ; 

var  //PROCESS  PIXEL  STUFF:  LOCAL  VARIABLES  SEEM  TO  BE  FASTER  (CREATED  IN  CACHE?) 
Kzscale : single ; 
pzbuf fer : PWord ; 
prgbabuf fer :PLongword; 
temp : ^Char ; 

i : longword ; 
j ; longword ; 
z : word ; 
lw: longword ; 
j  j : longword ; 
rgblw : longword ; 
r , g, b :byte ; 
p :  '"'byte  ; 


begin 


//FIXME,  GHASTLY  PATCHWORK  STUFF  HERE! 

KZscale : =1 ; //default 

FP_KZScale :  =6553  6 ;  //ie  1  in  16  bit  fixed  point 
with  MVDrec  do 
begin 

if  AutoScaleBool  then 
begin 

//scan  zbuffer,  getting  minz  &  maxz 
minZ : =  6  5  5  3  5  ; 
maxZ :  =  0 ; 

pzbuf f er : =@zbuf f er2 [0] ; 

// _  CRITICAL  LOOP  _ 

for  i:=0  to  MOESizeSquared2 -1  do 

begin 

z : =pzbuf f erA ;  //get  z  value  [0.. 65535] 

if  z<65535  then  //don't  include  'infinite '  Z  values  in  max  min 

begin 

if  z>maxZ  then  maxZ:=z  else  if  z<minZ  then  minZ:=z; 
end; 

inc (pzbuf fer ) ; 

end; 

/ /AutoScaleBool :=false; 

// _  END  CRITICAL  LOOP  _ 

end;  {  else 
begin 

//assume  minz  &  maxz  are  the  same  as  the  gl  near/ far  clip  planes 

// 

minZ :  =round  ( (MOEUnit_FarZClip/  (MOEUni  t_FarZClip-MOEUnit_NearZClip) )  *  (1-  (MOEUni  t_NearZClip/MVD_m 

// 

maxZ:  =round  ( (MOEUni  t_FarZCl  ip/  (MOEUni  t_FarZClip-MOEUnit_NearZClip) )  *  (1-  (MOEUni  t_NearZClip/MVD_fi 
minZ : =round (MVD_clip_near*65536) ; 
maxZ : =round (MVD_clip_far*65536) ; 
end;  } 

//compute  scaling  factor 

if  MaxZoMinZ  then  KZscale := (MVD_NumPlanes-l )/ (MaxZ-MinZ) ; 

FP_KZScale : =round ( KZscale* 6553 6 ) ;  //convert  to  16  bit  fixed  point  format 
//***  PROCESS  THE  DATA  **** 
if  ProcessBool  then 
begin 

//BUILD  MVD32S 

prgbabuf f er : =@rgbabuf f er2 [ 0 ] ; 
pzbuf fer : =@zbuffer2 [0] ; 

// _  CRITICAL  LOOP  _ 

for  j : =0  to  (M0ESizeSquared2 -1 )  do  //for  each  pixel... 
begin 

//GET  P  &  D 

z ; =pzbuf f erA ;  //get  z  value  [minZ..maxZ] 

//if  BackDropBool  then  if  z>maxz  then  z  ;=  maxz;  MOVE  THIS  OUTSIDE! 
z:=z-minZ;  //z  [0 . . .maxZ-minZ] 

LW: =z*FP_KZSCALE ; 

rgblw : =prgbabuf  f er  A ;  //ABGR 

//GAMMA  CORRECT  EACH  COMPONENT 

asm 

//SPLIT  RGBLW  TO  RGB 

mov  eax, rgblw  //ABGR 
mov  R,al 
mov  G,ah 
shr  eax , 8 
mov  B , ah 
end  ; 

r : =Faster_GammaLUT [r] ; 
g ; =Faster_GammaLUT [g] ; 
b: =Faster_GammaLUT [b] ; 

asm 

//REASSEMBLE  RGBLW 
mov  dh , R  / /EDX= 


.  rrrrrrr 


,  ,  mov  dl ,  G  / /edx= . rrrrrrr  .  ggggggg 

shl  edx,16  //EDX= . rrrrrrr  .ggggggg  . 

mov  dh ,  B  / /EDX= . rrrrrrr  . ggggggg  . bbbbbbb . 

shl  edx,l  / /EDX=rrrrrrr .  ggggggg.  bbbbbbb . 

//BUILD  MVD32  STRUCTURE 
PUSH  EBX 

//****************************************************************************** 
//*  THIS  NEXT  BIT  (TO  THE  POP)  IS  SUB  OPTIMAL  DUE  TO  PARTIAL  PROCESSOR  STALLS  * 
//*  CAUSED  PRIMARILY  BY  MIXING  8  &  32  BIT  OPERANDS  -  SEE  GAMASUTRA  * 

//****************************************************************************** 


//ISOLATE  P 

FROM  LW 

mov  ebx , LW 

/ /EBX= .  .  .  . 

. PPPPPP 

DDDDDddd 

shr  ebx, 8 

//EBX= .... 

.  . 

. -PPPPPP 

DDDDDddd 

mov  cl,bh 

/ / CL=P  at 

this  point 

//SPLIT  UP 

D  APPROPRIATELY 

xor  bh,bh 

/ /EBX= .... 

...»  ...... 

DDDDDddd 

shl  bx , 1 

//EBX= .... 

. D 

DDDDddd. 

mov  bh,ah 

/ /EAX= .... 

. D 

xor  bh,bh 

/ / EBX= .... 

DDDDddd. 

shl  bx, 1 

//EBX= .... 

. D 

DDDddd. . 

mov  bh,al 

//EAX= . .  .  . 

. D 

. D 

shl  eax, 16 

//EAX= .... 

.  .  .D . 

.  D 

xor  bh,bh 

//EBX= .... 

DDDddd. . 

shl  bx, 1 

/ /EBX= .... 

. D 

DDddd. . . 

and  bx, 192 

/ /EBX= .... 

. D 

DD . 

mov  ax,bx 

//EAX= .... 

.  .  .  D . 

.D 

. D 

DD . 

//BUILD  MVD32  from  d,p 

,  rgba 

or  al,cl 

/ /EAX= .... 

.  .  .d . 

.d 

. d 

ddpppppp 

or  eax,edx  / /EAX=rrrrrrrd  gggggggd  bbbbbbbd  ddpppppp 
//STORE  MVD32  RESULT 

mov  RGBLW,eax 

//CALCULATE  PLANE  TRANSFER  BUFFER  OFFSET 


mov 

eax,  J 

shr 

eax,  4 

and 

eax, 31 

shl 

eax, 13 

mov 

ebx,  J 

shr 

ebx,  9 

shl 

ebx,  4 

add 

eax , ebx 

mov 

ebx,  J 

and 

ebx , 1 5 

add 

eax , ebx 

dec 

eax 

mov 

JJ , eax 

POP 

EBX 

end  ; 

PlaneTransf erBuf f er2 [jj] :=rgblw; 
inc (prgbabuf f er ) ; 
inc (pzbuf f er ) ; 

end; //next  j 
end ; / /processbool 

end; 

end; 


// - 

procedure  mvdReadGL ,-  overload ; 
begin 

with  mvdrec  do 
begin 

glreadpixels ( 0 ,  0,  MVD_SizeW,  MVD_Si zeH ,  GL_RGBA,  GL_UNSIGNED_BYTE , 

@rgbabuffer2 [0] ) ; 


,  glReadPixels ( 0 ,  0,  MVD_SizeW,  MVD_SizeH ,  GL_DEPTH_COMPONENT ,  GL_UNSIGNED_SHORT , 

@zbuffer2  [0] )  ; 

end; 
end  ; 

procedure  mvdReadGL ( top ,  left: word);  overload; 

begin 

with  mvdrec  do 
begin 

glreadpixels ( top ,  left,  MVD_SizeW,  MVD_SizeH,  GL_RGBA,  GL,_UNSIGNED_BYTE  , 

@rgbabuffer2 [0]  )  ; 

glReadPixels (top,  left,  MVD_SizeW,  MVD_SizeH ,  GL_DEPTH_COMPONENT ,  GL_UNSIGNED_SHORT , 
@zbuffer2 [0] ) ; 

end; 

end; 

//SELF  INITIALIZING  CODE 

begin 

MOEUni t_NumP lanes : =12  ;  //SHOULD  BE  READ  FROM  INI  OR  SOMEWHERE 
//MOEUni  t_NumPlanes :  =MVD_NumP  lanes ; 

Build_GammaLUT ; 

end . 


(* 

DATA  TRANSFER  MODES 


1)  BLOCK  MODE 

The  entire  50  plane  data  set  is  sent  at  32  bits  per  pixel: 

[R7x  G7x  B7x  x8] . 

AA  is  done  by  host  computer  if  desired. 

NB  11  bits  are  {redundant/not  used/reserved  for  future  development} . 

2)  PLANE  (Z  BUFFER)  MODE 

A  single  page  of  512*512  pixels  is  sent,  along  with  D  &  P  as  a  32  bit  word: 
[R7D  G7D  B7D  D2P6] 

The  MOE  uses  P  ro  place  RGB  in  the  correct  address  and  uses  D  to  modulate . 
DISPLAY  RAM 


The  display  RAM  in  the  MOE3  is  laid  out  as  follows: 

There  are  50  planes: 

Each  plane  is  512*512  pixels 

Each  plane  is  arranged  as  32  columns,  each  16  pixels  wide  and  512  rows  deep 
Memory  locations  are  sequential  as  follows: 

for  column: =1  to  32  do 
begin 

for  plane :=1  to  50  do 
begin 

for  row:=l  to  512  do 
begin 

for  pixel : =1  to  16  do 
begin 
end; 

end; 

end; 

end; 

This  equates  to  (32*16)  *512*50=  13,107,200  pixels 
Each  pixel  is  32  bit  and  contains  the  following  data: 
rrrrrrrd  gggggggd  bbbbbbd  ddpppppp 


Tl^e  entire  structure  is  therefore : 

13107200*4=  52,428,800  bytes, 

52428800/1024=  51,200  kB 
51200/1024=  50  Mb 

This  needs  to  be  dumped  to  the  MOE  at  30fps,  a  transfer  rate  of 
1500MB/sec  or  1 . 46GB/sec 

So  the  MOE  driver  program  needs  to: 

a)  Read  the  Color  Buffer 

b)  Read  the  Depth  Buffer 

PAGE  MODE: 

c)  Compute  Plane  and  Delta  data  for  each  pixel 

d)  Reformat  the  data  into  the  512*512* [DR7  DG7  DB7  D2P6]  array  structure 

e)  Dump  the  512*512*32bit  structure  to  the  MOE  via  PCI  bus 

BLOCK  MODE: 

c)  Compute  Plane  and  Delta  data  for  each  pixel 

d)  Populate  the  entire  512*512*50* [xR7xG7xB7 ]  structure  based  on  RGB  &  Plane 

d)  Modulate  RGB  on  a  per  pixel  basis  based  on  the  delta 

e)  Dump  the  512*512*50*24bit  structure  to  the  MOE  via  PCI  bus 

a)  Read  the  Color  Buffer 


This  is  done  using  glReadPixels,  a  non  hw  accelerated  function  (unless  using 
certain  models  of  Intergraph  PCs) .  Ultimately  we  want  to  express  each  color  as  a 
7  bit  number,  so  ideally  we'd  like  glReadPixels  to  return  a  byte  between  0  & 

127.  Happily  OpenGL  does  this  for  us  if  we  specify  a  format  of  GL_BYTE  in  the 
glReadPixels  command. 

glReadPixels (0 ,  0 ,  512 ,  512 , GL_BYTE, GL_RGB ,  Qpixels)  will  give  us  a  512*512  array  of 
RGB  triplet  bytes.  The  total  size  of  the  array  will  be 

512*512*3=786,432  bytes=768kB  or  0.75MB  and  we  can  rely  on  the  msb  in  each  byte 
being  =  0. 

RGBpixels : array [0. .786432]  of  byte; 

value:  Orrrrrrr  Oggggggg  Obbbbbbb  Orrrrrrr  Oggggggg  Obbbbbbb 

pixel :  0 - 1 - 

byte:  0 - 1 - 2 - 3 - 4 - 5 - 

b)  Read  the  Depth  Buffer 


This  is  also  done  using  glReadPixels .  Ultimately  we  want  to  express  the  depth  as 
a  5  bit  number  representing  the  plane  [0..50],  and  a  5  bit  number  representing 
the  delta.  At  the  moment  (M0E2)  we  read  this  as  a  4  byte  [0..1]  glfloat  because 
we  need  the  fractional  part  to  calculate  the  delta. 

This  is  quite  slow  because  we're  reading  512*512*4=1048576=  1MB. 

It  also  provides  us  with  more  data  than  we  can  use,  since  we  only  have  5  bit 
delta.  Because  we  have  only  32  delta  values  we  only  need  fractional  accuracy  to 
1/32=0.03125. 

The  usable  range  for  us  is  therefore  50*32=1600 .  1600  is  11001000000  in 

binary,  ie  our  usable  range  will  fit  into  11  bits,  so  reading  a  16  bit  value 
will  be  more  than  adequate  for  our  needs. 

glReadPixels (0, 0,  512,  512 , GL_SIGNED_SHORT ,  GL_DEPTH_ COMP ONENT ,  Qdepthpixels) 
will  give  us  a  512*512*2  array  of  words.  The  total  size  of  the  array  will  be 
512*512*2=524,288  bytes=512kB  or  0.5MB. 

Although  this  in  theory  should  execute  twice  as  fast  as  a  float  read,  we  have 
some  post  processing  to  do.  Since  we're  reading  signed  shorts  the  range  is 
0.. 32768  and  we  can  rely  on  the  msb=0. 

The  range  of  each  depthpixel  is  [0.. 32767].  From  this  integer  we  have  to  derive 
a  float  number  in  the  range  [0..49].  pscale=49/32767=0 .0014954069643 . 

So  we  could  multiply  each  depth  pixel  by  this  number. 

This  is  an  awkward  number  to  try  to  optimize,  but  at  least  its  a  constant... 

c)  Compute  Plane  and  Delta  data  for  each  pixel 


t 


plane=depthpixel *pscale; 
delta=frac (plane) 
plane=round (plane) 

so.  . 

M0E2  float  read. . . . 
depthpixel=0 . 555 
plane : =50*depth=27 . 75 
del  t a :  =frac  (plane)  =0.75 
plane: =round (plane) =27 

M0E3  word  read. . . . 
depthpixel=0 . 555 *32768=1 8186 
plane=18186*pscale=27 .  749633789 
delta=frac (27 . 749633789 ) =0 . 749633789 
plane=round (27 .  749633789) =27 

so  the  error  is  27 .75-27 .749633789=0 .000366211,  not  worth  worrying  about. 

In  order  to  pack  the  delta  into  5  bits  for  the  output  32  bit  word  we  take 
del t a : = round (delta*31)  ?? 

d)  Reformat  the  data  into  the  new  array  structure 
rgbpixels  depthpixels 

I  I  I 

I  plane  delta 

I  I  I 

====moe=========== 

TRGBtriplet=array[0..2]  of  byte; 

RGBpixels : array [0 . .262144]  of  TRGBtriplet; 
depthpixels  -.array [0 .  .262144]  of  integer; 

MOE:array[0. .31] [0. .49] [0. .511] [0. .15]  of  longword 

pixelnum: =0; 
for  column: =1  to  32  do 
begin 

for  plane :=1  to  50  do 
begin 

for  row:=l  to  512  do 
begin 

for  pixel : =1  to  16  do 
begin 

r:  =RGBpixels  [pixelnum]  [ 0]  ; 
g :  =RGBpixels  [pixelnum]  [1]  ; 
b:  =RGBpixels  [pixelnum]  [2]  ; 

f:=DepthPixel [pixelnum] *pscale;  //  ugh,  floating  point 
p : =round ( f) ;  //  ugh,  floating  point 

d:=round( (f-p) *31) ;  //  ugh,  floating  point 

//BIT  TWIDDLING  STARTS  HERE 

lw:=(r  shl  l)+(d  and  1) ;  //lw=00000000  00000000  00000000  rrrrrrrd 

lw:=lw  shl  8; 

lw: =lw+ (g  shl  l)+((d  and  2)  shr  1) ;  //lw=00000000  00000000  rrrrrrrd  gggggggd 

lw:=lw  shl  8; 

lw:=lw+ (b  shl  l)+((d  and  4)  shr  2);  / /lw=00000000  rrrrrrrd  gggggggd  bbbbbbbd 

lw:=lw  shl  8; 

lw: =lw+ ( (d  and  24)  shl  3)+(p  and  63);  / /lw=rrrrrrrd  gggggggd  bbbbbbbd  ddpppppp 
MOE [column] [plane] [row]  [pixel] :=lw; 
inc  (pixelnum) ; 
end; 

end; 

end; 

end; 


Of  course  it  would  be  nice  to  loop  this  in  machine  code. . . 


T£e  bitf  twiddling  is  straightforward,  the  multiplication  by  an  fp  constant  should  be  an  FMUL 
(precludes  the  use  of  SIMD  -  careful)  and  the  input  addressing  all  has  the  same  offset. 
Calculating  the  output  address  might  be  a  pain. . . . 

e)  Dump  the  structure  to  the  MOE  via  PCI  bus 

Just  pass  NIDAQ  the  address  of  the  MOE  struct  and  hit  the  go  button. 


B.  MVD322  Data  Word  Format 

The  data  word  assembled  by  the  mvdFormatdata  API  function  is  known  as  an 
MVD32  type.  It  is  a  32-bit  data  word  with  the  following  format: 


31 

23 

15 

7 

0 

+ 

. + . 

. ..+ . 

. + . 

+ 

+  R[6:0]  D[4] 

+  G[6:0]  D[3] 

+  B[6:0]  D[2] 

+  D[1:0]P[5:0] 

+ 

+  . . 

..  .  +  . 

+ 

..  .  +  . 

. + 

Where: 

R[6:0]  is  the  7-bit  red  data, 

G[6:0]  is  the  7-bit  green  data, 

B[6:0]  is  the  7-bit  blue  data, 

D[4:0]  is  the  5-bit  fractional  portion  of  the  depth,  and 
P[5:0]  is  the  6-bit  integer  portion  of  the  pixel  depth 


This  data  word  format  was  developed  to  maximize  the  rate  at  which  the  API 
function  mvdFormat  data  runs.  The  format  of  the  color  data  retrieved  from  the 
framebuffer  by  mvdReadgl  is  a  32-bit  number  with  the  red,  green  and  blue  data  already  in 
the  correct  locations  within  the  MVD32  data  word.  The  only  operation  required  is  to 
splice  the  pieces  of  the  depth  value  into  the  data  word. 


Dimensional  Media  Associates,  Inc. 
CONTAINS  PROPRIETARY  INFORMATION 
DO  NOT  DISTRIBUTE 


C.  Data  Transfer  Cable  Pin  Assignments 


The  following  figure  is  scanned  from  the  documentation  of  the  National 
Instruments  PCI-DIO-32HS  high  speed  data  transfer  card.  It  is  Figure  4-1  indicating  the 
pin  assignments  of  the  68-pin  output  connector.  (July  1997  Edition) 
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Pins  DI0D[7: 1]  correspond  to  R[6:0]  in  the  MVD32  data  word 

Pin  DIOD[0]  correspond  to  D[4]  in  the  MVD32  data  word 

Pins  DI0C[7:1]  correspond  to  RG6:0]  in  the  MVD32  data  word 

Pin  DIOC[0]  correspond  to  D[3]  in  the  MVD32  data  word 

Pins  DI0B[7:1]  correspond  to  G[6:0]  in  the  MVD32  data  word 

Pin  DIOB[0]  correspond  to  D[2]  in  the  MVD32  data  word 

Pins  DIOA[7:6]  correspond  to  D[1 :0]  in  the  MVD32  data  word 

Pins  DIOA[5:0]  correspond  to  P[5:0]  in  the  MVD32  data  word 

Pin  PCLK1  is  the  data  clock  input  from  the  MVD  framebuffer 

Pins  ACK1,  and  REQ1  are  the  data  handshaking  pins.  The  ACK1  pin  is  asserted 
when  the  card  is  ready  to  send  data,  and  the  REQ1  signal  is  asserted  when  the 
framebuffer  is  ready  to  receive  data.  Both  signal  must  be  asserted  for  data  transfer  to 
occur. 


Pin  PCLK2  is  an  output  pin  that  signals  the  data  transfer  mode:  HIGH  indicates 
plane  transfer  mode,  LOW  indicates  block  transfer  mode.  This  signal  is  only  detected  by 
the  framebuffer  between  data  transfers. 

Pins  ACK2  and  REQ2  are  the  volume  handshaking  signals.  The  framebuffer  asserts 
REQ2  when  it  is  ready  to  receive  a  new  volume  of  data  in  either  plane  transfer  mode  or 
block  transfer  mode.  The  mvdTransfer  API  function  checks  for  a  HIGH  condition  on 
REQ2  before  beginning  a  transfer.  If  a  HIGH  condition  is  found,  the  function  toggles 
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ACK2  first  HIGH  then  LOW  to  tell  the  MVD  framebuffer  that  transfer  is  about  to  begin. 
Transfer  follows  immediately. 

The  rest  of  the  pins  are  either  ground  (GND)  as  indicated  or  have  no  MVD 
function. 
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D.  SGI  Device  Driver  source  code 

The  following  pages  contain  the  source  code  an  SGI  IRIX  6.2  device  driver  for  the 
National  Instruments  PCI-DIO-32HS  high  speed  data  transfer  card. 
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*****  PCI-DIO-32HS  PCI  Device  Driver  ***** 

*  *  *  *  *  *  *  **  * 


*/ 

# include 
# include 
# include 
# include 
# include 
# include 
#include 
#include 
# include 
# include 
# include 
#include 
# include 
# include 
# include 
# include 
# include 
# include 
#include 
# include 
# include 
# include 
# include 
# include 


<sys / types . h> 

" sys / cmn_err . h " 

" sys/sema . h" 

<sys/param.h> 

<sys/errno .h> 

<sys/syslog.h> 

<sys/conf . h> 

<sys/pio.h> 

"sys/systm.h" 

<sys/ time . h> 
<sys/ksynch.h> 
<sys/ktime . h> 

<sys / invent . h> 

< sys / kmem . h> 
<sys/kabi . h> 
<sys/mload . h> 
<sys/ddi . h> 

<sys/cred . h> 
<sys/iitimu.h> 
<sys/region. h> 
<sys/al enlist . h> 
<sys/ioerror . h> 
<sys/PCI/PCI_def s .h> 
<sys/PCI/pciio . h> 


# include  "diodrvr.h" 

# include  "diodrvr_user . h" 

/*  ddi/dki  and  irix  required  */ 

char  *diodrvr_mversion  =  M_VERSION;  /*  loadable  driver  requirement  */ 
int  diodrvr_devf lag  =  D_MP;  /*  ddi/dki  requirement  */ 

/*  ====================================== 

*  Device  Driver /PCI  entry  routines 

*  z====z:===:=====:=z=  =  =  =  =:===:=:==  =  ====:  =  =  =  =  =:===:  *  / 

int  diodrvr_unload ( void) ; 

int  diodrvr_open ( dev_t  *,  int,  int,  cred_t  *); 
int  diodrvr_close ( dev_t ,  int,  int,  cred_t  *); 
int  diodrvr_read (  dev_t,  uio_t  *,  cred_t  *); 
int  diodrvr_write (  dev_t ,  uio_t  *,  cred_t  *); 

int  diodrvr_ioctl (dev_t ,  int,  void  *,  int,  cred_t  *,  int  *); 

int  diodrvr_map  (  dev_t ,  vhandl_t  *,  off_t,  size_t,  uint_t  ) ; 

int  diodrvr_unmap  (  dev_t,  vhandl_t  *  ) ; 

int  diodrvr_init ( ) ; 

int  diodrvr_reg (void) ; 

int  diodrvr_reg ( void) ; 

int  diodrvr_attach ( vertex_hdl_t ) ; 
int  diodrvr_detach (vertex_hdl_t ) ; 

/*  ====================================== 

*  Helper  functions 


*  ======================================  * / 

void  diodrvr_reset (card_t  *); 

void  diodrvr_burst_clkout ( card_t  *,  int  *); 

void  diodrvr_burst_clkin ( card_t  *,  int  *); 

void  diodrvr_dma_groupl (card_t  *,  int  *); 

static  int  diodrvr_Strategy  (  buf_t  *  ) ; 

static  diodrvr_dmapage_t  *  diodrvrMakeChain  (  card_t  *,  alenlist_t,  int) 

static  void  diodrvrStartProgDma  (  card_t  *,  iopaddr_t,  int,  int); 

static  void  diodrvrStartSingleDma  (  card_t  *,  alenaddr_t ,  size_t,  int  ); 

static  void  diodrvrTimeOut  (  card_t  *  ) ; 

void  diodrvr_int_countexp (card_t  *  ) ; 


vc>id 

void 

void 

‘ 

static 

void 

static 

void 

static 

void 

static 

void 

/* 

* 

Our  < 

* 

V 

Note 

Read_Important_Registers (card_t 
diodrvr_run (card_t  *  ); 
diodrvr_stop ( card_t  *  ); 
IrvrReportTime  (  caddr_t ,  card_t 
IrvrDif fTime  (  struct  timespec  * 
IrvrConvTime  (  struct  timespec  * 
diodrvrUserTime  (  card_t  * ,  int 


We  do  not  set  any  error  handler 


static  error_handler_f  diodrvr_error ; 
void  diodrvr_in.tr  (  intr_arg_t  )  ; 


')  ; 


* ,  int  ) ; 
struct  timespec  * 
diodrvr_timeval_t 
*  )  ; 


struct  timespec 
*  )  ; 


int  dmaChannel  =  1; 

int  drqnum  =  1 ; 

uchar_t  * DMA_BASE_ADDR ; 


/* 


Driver's  Entry  Routines 


V 


***  diodrvr_  i  n  i  t  *** 


*  Name ; 

* 

* 

* 

* 

* 

* 

* 


Purpose : 


Returns: 


diodrvr_init 

Called  by  kernel.  For  Irix6.4  only:  We  do  not  register 
here  but  we  will  do  it  in  diodrvr_reg.  For  init,  we  simply 
do  nothing. 

None 


int 

diodrvr_init ( ) 

{ 

return ( 0 )  ; 

} 


***  d  i  o  d  r  v  r  _  r  e  g  *** 


jfr 

*  Name : 

* 

*  Purpose : 

* 

* 

* 

*  Note: 

* 

*  Re  turns : 

* 


di odrvr_reg 

Called  by  kernel  when  the  driver  is  loaded. 

Here  we  register  ourselves  for  the  card,  identified  by 
Vendor  and  Device  ID. 

This  is  for  Irix6.4  only. 

None 


int 

diodrvr_reg ( ) 

{ 

register  int  ret; 


/*  Register  and  identify  the  card  */ 

ret  =  pciio_driver_register ( VENDOR_ID ,  DEVICE_ID,  DRIVER_PREFIX ,  0); 


if  ,(  ret  )  { 

cmn_err  (CE_WARN,  "diodrvr_reg:  registration  returned  %d"  ,  ret  )  ; 

} 

return ( ret ) ; 


k  k  k  dlOClX'\f2?cLt!.fcclCh  k  k  k 


* 


*  Name : 

* 

*  Purpose : 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

*  Returns: 

k 


di odrvr_a t tach 

Called  by  the  kernel.  Our  card  is  installed  and  hence 
we  are  called.  Prepare  everything  necessary  to  handle 
the  card.  Note  that  when  the  card  is  found,  the  following 
is  set  in  the  Command  field  of  Config  space: 

-  Bus  master  enabled/ 

-  Memory  and  10  space  access  enabled. 

-  Cache  line  is  set  to  0x20  (32) 

-  Latency  Timer  is  set  to  0x30  (48) 

For  Chameleon,  beside  Configuration  address  space,  we  need  4 
Memory  address  spaces  to  be  mapped: 

Base_Reg  0  =  MITE  Registers  and  Fifos 
Base_Reg  3  =  Normal  DMA  registers 
Base_Reg  4  =  Configuration  Register . 

0  for  Success,  or  errno 


int 

diodrvr_attach ( vertex_hdl_t  conn) 

{ 


card_t 

caddr_t 

pciio_piomap_t 

register  int 

uint_t 

vertex_hdl_t 
devi c  e_de  s  c_t 

long 

long 

char 

register  uint_t 
register  uint_t 


*cp; 

cfg_adr,  mem_ptr,  mite_adr,  dio_adr,  norm_adr; 
cfg_map,  mite_map,  dio_map,  norrnjmap; 
ret,  i; 

vendor_id,  device_id,  base_reg,  cmd_reg,  tmp_int; 
diodrvr_vhdl ; 
dev_desc ; 

dev_win_data ; 
testlong ; 
testchar ; 

LCR2bitS,  MGARbitS,  PLIVRbits ; 
blklim,  cacheLineWords ; 


/*  dev_desc  =  device_desc_default_get (conn) ;  */ 
dev_desc  =  0  ; 


pciio_priority_set (conn,  PCI_PRIO_HIGH ) ; 


/*  ========================= 

*  Configuration  Space 

*  =========================  */ 


cfg_map  =  (pciio_piomap_t ) NULL ; 
cfg_adr  =  ( caddr_t ) pciio_pio_addr  ( 

conn , 
dev_desc , 

PCIIO_SPACE_CFG ,  /* 

0, 

DIODRVR_CONFIG_HDR ,  /*  for 

&cf g_map , 

0)  ; 


/*  connection  vertex  */ 

/*  default  device  descr.  */ 
dioig  space  wanted  */ 

/*  from  the  start  of  space  */ 
this  many  bytes  *  / 

/*  in  case  we  need  piomap  */ 

/*  unused  flag  */ 


if  (  cfg_adr  ==  ( caddr_t ) NULL  )  { 

if  (  cfg_map  )  pciio_piomap_done  (  cfg_map  ) ; 


,  cmn_err  (  CE_WARN,  "diodrvr_attach:  Cannot  get  to  Config  space"  ) 

return  (EIO)  ; 

} 


/*  =============================== 

*  Configuration  data  printout 

*  ===============================  */ 

/*  vendor_id,  device_id  */ 
tmp_int  =  Inp32 ( cfg_adr ) ; 
vendor_id  =  tmp_int  &  OxOOOOffff; 
device_id  =  tmp_int  >>  16; 

#if def  DEBUG 

printf  ( "diodrvr_attach:  Config  values\n"  ); 

printf  ("vendor_id  =  Ox%x,  device_id  =  Ox%x\n"  ,  vendor_id,  device_id  ); 

/*  command  and  status  */ 
tmp_int  =  Inp32 ( cfg_adr  +  0x04); 

printf  ("Command  =  0x%x,  Status  =  0x%x\n”  ,  (tmp_int  &  OxOOOOffff), 
(tmp_int  >>16)  ); 

/*  interrupt  line  and  pin  */ 
tmp_int  =  Inp32 ( cfg_adr  +  0x3C) ; 

printf  ("Int  Line  =  %d,  Int  Pin  =  %d\n"  ,  ( tmp_int  &  OxOOOOOOff), 

(tmp_int  &  OxOOOOffOO)  >>  8  ); 

/*  set  the  cache  line  size  and  latency  timer  */ 
tmp_int  =  Inp32 (cfg_adr  +  OxOC) ; 

tmp_int  =  (tmp_int  &  OxFFFFOOOO)  |  0xFF20; 

Out32 ( cfg_adr  +  OxOC,  tmp_int) ; 


/*  cache  line  size  and  latency  timer  */ 
tmp_int  =  Inp32 ( cfg_adr  +  OxOC) ; 

printf  (“Cache  line  size  =  %d,  latency  timer  =  %d\n"  , 

(tmp_int  &  OxOOOOOOff),  ( tmp_int  &  OxOOOOffOO)  >>  8  ); 

/*  all  6  base  registers  */ 
for  (  i  =  0;  i  <  6;  i++  )  { 

printf  ( "Base_Reg_%d  =  0x%x\n"  ,  i,  Inp32 ( cfg_adr+0xl0+ ( i*4 ) )  ); 

} 

dev_win_data  =  (Inp32 (cfg_adr+0xl4)  &  OxffffffOO)  |  0x80; 
printf ( "dev_win_data :  0x%x\n" ,  dev_win_data ) ; 

#endif 

/*  ========================== 

*  MITE  Registers 

*  ==========================  * / 


/*  Get  MITE  Register  addresses  * / 
mite_map  =  (pciio_piomap_t ) NULL ; 
mite_adr  =  (caddr_t)pciio_pio_addr  ( 

conn,  /*  connection  vertext  */ 

dev_desc,  /*  default  device  descr.  */ 

PCII0_SPACE_WIN (0) ,  /*  Base  register  0  space  */ 

0,  /*  from  the  start  of  space  */ 

MITE_RAM_SIZE ,  /*  for  this  many  bytes  */ 

&mite_map,  /*  in  case  we  need  piomap  */ 

0);  /*  unused  flag  */ 


if  (  mite_adr  ==  ( caddr_t ) NULL  )  { 

cmn_err ( CE_WARN ,  " diodrvr_attach :  Cannot  get  to  MITE  address  space"  ); 

if  (  cfg_map  )  pciio_piomap_done  (  cfg_map  ) ; 
if  (  mite_map  )  pciio_piomap_done  (  mite_map  ) ; 
return  (EIO) ; 


} 


/*  write  the  DIO  devices  address  in  the  MITE  */ 

Out32 (mite_adr  +  MITE_DEV_WIN ,  dev_win_data ) ; 

/*  set  max  retries  to  infinite 
MGARbits  =  Inp32 (mite_adr  +  MITE_MGAR) ; 

MGARbi ts  =  MGARbi t S  /  (MITE_MGAR_DISABLEMAX) ; 

Out 3 2 (mite_adr  +  MITE_MGAR,  MGARbits);  */ 

/*  match  the  MITE  cache  width  to  the  processor  cache  width 
PLlVRbits  =  Inp32 (mite_adr  +  MITE_PLIVR) ; 
cacheLineWords  =  (PLlVRbits  &  OxOOOOOOFF) /4 ; 

swi  tch (cacheLineWords )  { 
case  2 ; 

blklim  =  MITE_LCR2_BLKLIM_2 ; 
break; 

case  4: 

blklim  =  MITE_LCR2_BLKLIM_4 ; 
break; 

case  8: 

blklim  =  MITE_LCR2_BLKLIM_  8 ; 
break; 

case  16: 

blklim  =  MITE_LCR2_BLKLIM_16 ; 
break; 

defaul t : 

blklim  =  OxFFFFFFFF; 
break;  */ 

/*} 

if  (blklim  !=  OxFFFFFFFF)  {  */ 

blklim  =  MITE_LCR2_BLKLIM_8 ; 

LCR2bits  =  Inp32 (mite_adr  +  MITE_LCR2 ) ; 

/*  mask  out  old  values  */ 

LCR2bitS  &=  ~ (MITE_LCR2_BLKLIM  |  MITE_LCR2_BLK0BND ) ; 

/*  now  write  new  values  */ 

LCR2bits  |=  (blklim  |  MITE_LCR2_BLK0BND ) ; 

Out32 (mite_adr  +  MITE_LCR2 ,  LCR2bits ) ; 

/*}*/ 

DMA_BASE_ADDR  =  (dmaChannel  *  OxOlOOL)  +  (uchar_t  *)mite_adr  +  0x500; 

/  *  ==================:=======:======= 

*  DIO  Registers 

*  ================================  */ 

dio_map  =  (pciio_piomap_t ) NULL ; 
dio_adr  =  ( caddr_t ) pciio_pio_addr  ( 

conn,  /*  connection  vertext  */ 

dev_desc ,  /*  default  device  descr .  */ 


PCIIO_SPACE_WIN  ( 1 )  , 

/* 

Base  register  1  space 

*/ 

0, 

/* 

from  the  start  of  space 

V 

DIO_RAM_SIZE , 

/* 

for  this  many  bytes 

*/ 

&dio  map, 

/* 

in  case  we  need  piomap 

V 

0)  ; 

/* 

unused  flag 

V 

if  (  dio_adr  ==  ( caddr_t ) NULL  )  { 

cmn_err ( CE_WARN ,  " diodrvr_attach :  Cannot  get  to  Config  Register"  ); 

if  (  cfg_map  )  pciio_piomap_done  (  cfg_map  ) ; 
if  (  mite_map  )  pciio_piomap_done  (  mite_map  ) ; 
if  (  dio_map  )  pciio_piomap_done  (  dio_map  ) ; 
return  (EIO) ; 


/*  Test  the  card  by  reading  the  test  registers  */ 

printf ("dio  test  data:  0x%x\n"  ,  Inp32 ( dio_adr  +  24 )  )  ; 


/*  allocate  an  internal  structure  for  this  card  and  save  everything  */ 
cp  =  (card_t  * ) kmem_zalloc  (  sizeof ( card_t ) ,  KM_NOSLEEP  ); 
if  (  cp  ==  (card_t  *)NULL  )  { 

cmn_err (CE_WARN,  " diodrvr_attach :  Cannot  allocate  memory"  ); 
if  (  cfg_map  )  pciio_piomap_done  (  cfg_map  ) ; 
if  (  mite_map  )  pciio_piomap_done  (  mite_map  ) ; 
if  (  dio_map  )  pciio_piomap_done  (  dio_map  ) ; 
return ( ENOMEM ) ; 

} 


#ifdef 

DEBUG 

printf 

( "diodrvr_attach:  mite_ 
mite_adr,  dio_adr  ); 

adr  =  0x%x, 

dio_adr  =  0x%x\n 

printf 

( "  cfg_adr 

cfg_adr) ; 

=  0x%x\n“  , 

printf 

#endif 

("Maps  allocated:  %s  %s 
mite_map  ?  "MITE":"1' , 
dio_map  ?  "dio" : " " , 
cfg_map  ?  "Cfg" : " "  ) ; 

%s\n"  , 

cp->conn 

cp->cfg_adr 

cp->mite_adr 

cp->dio_adr 

cp->mite_map 


=  conn; 

=  cfg_adr; 

=  mite_adr; 
=  dio_adr; 

=  mite_map; 


cp->dio_map  = 
cp->cfg_map  = 
cp->kernel_abi 


dio_map ; 
cfg_map ; 

=  get_current_abi ( ) ; 


/*  ABI_IRIX5_64  for  64 -bit  kernel  */ 


/*  reset  the  card  */ 
diodrvr_reset (  cp  ) ; 


/*  Test  the  card  by  writing  to  the  output  registers  */ 
printf ( "attempting  to  test  output  channels\n"  ); 

Out32 (dio_adr+32 ,  0); 

Out32 (dio_adr+36 ,  0); 

Out32 (dio_adr+32,  Oxffffffff); 


testlong  =  Oxffffffff; 
testchar  =  Oxff; 

for  (i=0 ; i<21  /  i++) 

{ 

Out32 (dio_adr+28 ,  testlong) ; 
testlong  =  testlong  A  Oxffffffff; 
testchar  =  testchar  A  Oxff; 

} 


/*  initialize  our  mutex  lock  and  sv_ t  for  sleep/wake  */ 
DIODRVR_LOCK_INIT ( &cp->diodrvr_mlock ) ; 

SV_INIT ( &cp->diodrvr_sv ,  SV_DEFAULT ,  "diodrvrsv"  ); 


/*  create  a  vertex  for  our  device  off  of  the  connection  point  */ 

ret  =  hwgraph_char_device_add ( conn,  "diodrvr" ,  "diodrvr_" ,  &diodrvr_vhdl  ) 

if  (  ret  ! =  GRAPH_SUCCESS  )  { 

cmn_err  (CE_WARN,  " diodrvr_attach :  could  not  addr  vertex"  )  ; 
if  (  cfg_map  )  pciio_piomap_done  (  cfg_map  ) ; 
if  (  mite_map  )  pciio_piomap_done  (  mite_map  ) ; 
if  (  dio_map  )  pciio_piomap_done  (  dio_map  ) ; 

kmem_free  (  cp,  sizeof ( card_t )  ); 

return (EIO) ; 


} 


hwgraph_chmod  (  diodrvr_vhdl ,  0666  ); 
cp->vhdl  =  diodrvr_vhdl ; 

/*  once  iodioig  and  DI ODR VR_MKHWGRAPH  works,  remove  this  area  */ 

ret  =  hwgraph_edge_add  (  hwgraph_root ,  diodrvr_vhdl ,  "diodrvr"  ); 
if  (  ret  ! =  GRAPH_SUCCESS  )  { 

cmn_err  (CE_WARN,  " di odrvr_attach :  Cannot  create  node  /hw/diodrvr"  ) 

} 

/ *  ===================================== 

*  Interrupt  Handler  Registration 

*  =====================================  */ 

cp->dev__intr  =  pciio_intr_alloc  (  conn,  dev_desc , 

PCI IO_INTR_LINE_A , 
diodrvr_vhdl  )  ; 

if  ( cp->dev_intr  ==  (pciio_intr_t } NULL) { 

cmn_err (CE_WARN ,  "diodrvr_attach:  Can't  pciio_intr_alloc "  ); 
if  (  cfg_map  )  pciio_piomap_done  (  cfg_map  ) ; 
if  (  mite_map  )  pciio_piomap_done  (  mite_map  ) ; 
if  (  dio_map  )  pciio_piomap_done  (  dio_map  ) ; 

kmem_free  (  cp,  sizeof ( card_t )  ); 

hwgraph_edge_remove  (conn,  "diodrvr",  &diodrvr_vhdl ) ; 
device_info_set  (  diodrvr_vhdl ,  0  ) ; 
hwgraph_vertex_destroy  (  diodrvr_vhdl  ) ; 

return ( EIO ) ; 

}  /*  if  can't  allocate  interrupt  handler  */ 

ret  =  pciio_intr_connect  (  cp->dev_intr ,  ( intr_func_t ) diodrvr_intr , 

(intr_arg_t) cp,  0  ); 


if  (  ret  ! =  0  )  { 

cmn_err (CE_WARN,  "diodrvr_attach:  Cannot  register  interrupt  handler"  ); 
if  (  cfg_map  )  pciio_joiomap_done  (  cfg_map  )  ; 
if  (  mite_map  )  pciio __piomap_done  (  mite_map  ) ; 
if  (  dio_map  )  pciio_piomap_done  (  dio_map  ) ; 

kmem_free  (  cp,  sizeof ( card_t )  ); 
hwgraph_edge_remove ( conn,  "diodrvr",  &diodrvr_vhdl ) ; 
device_inf o_set  (  diodrvr_vhdl ,0); 
hwgraph_vertex_destroy  (  diodrvr_vhdl  ) ; 
return  (EIO) ; 

}  /*  if  can't  connect  to  interrupt  line  */ 

/*  ======================================== 

*  Register  an  error  handler  for  6.4 

*  ========================================  * / 

#if  0 

pciio_error_register ( conn ,  ( error_handler_f  * ) diodrvr_error ,  cp  ) ; 

iendif 

cp->status  =  CARD_ATTACHED ; 

/*  allocate  memory  for  mapping 
for  (  i  =  MAP_PAGES;  i  >  0;  i—  )  { 

cp->mappedkv  =  kmem_alloc  (i  *  NBPP, 

KM_NOSLEEP  /  KM_PHYSCONTIG  /  KM_CACHEALIGN)  ; 
if  (  cp->mappedkv  !=  (caddr_t) NULL  ) 
break; 

} 

if  (  cp->mappedkv  ==  ( caddr_t ) NULL  )  { 

cmn_err  (CE_NOTE,  "diodrvr_attach:  Not  enough  memory  for  mapping" ) ; 
cmn_err  (CE_WARN,  "diodrvr_attach:  No  mapping  is  allowed" ) ; 

} 

else  { 

cp->mappedkvlen  =  i  *  NBPP; 


X 


1 


,  cmn_err 
V 


(CE_NOTE,  "diodrvr_attach:  %d  bytes  allocated,  %d  available  for  mapping” 
cp->mappedkvlen,  cp->mappedkvlen  -  LESS_MAP  ) / 


/*  save  our  structure  */ 

device_inf o_set  (  diodrvr_vhdl ,  (void  * ) cp  ); 

cmn_err  (  CE_NOTE,  "diodrvr_attach:  driver  is  ready"  ); 

return ( 0 ) ; 


***  diodrvr_detach 

k 


•k 

* 

Name : 

diodrvr_detach 

* 

Purpose : 

Detaches  a  driver. 

Called  by  the  pciio  infrastructure 

k 

once  for  each  vertext  representing  a  crosstalk  widget 

k 

k 

when  unregistering 

the  driver. 

k 

k 

Re  turns : 

0  Success  or  errno 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 

int 

diodrvr_detach ( vertex_hdl_t  conn) 

{ 

register  card_t  *cp; 

vertex_hdl_t  vhdl  ; 

if  (  hwgraph_traverse ( conn,  "diodrvr" ,  &vhdl)  !=  GRAPH_SUCCESS  ) 

return ( - 1 )  ; 

hwgraph_vertex_unref  (vhdl)  ;  /*  update  the  ref  count  for  above  call  */ 

cmn_err  ( CE_NOTE , 

"diodrvr_detach:  Unregister  Interrupt  handler  and  free  up  mem"  )  ; 
cp  =  (card_t  * ) device_inf o_get  (  vhdl  ); 

/*  our  struct  is  there  ?  clean  up  our  driver's  stuff  */ 
if  (  cp  !=  (card_t  * ) NULL  )  { 

/*  free  up  memory  for  mapping  * / 

if  (  cp->mappedkv  ) 

kmem_free  (  cp->mappedkv,  cp->mappedkvlen  ) ; 

/*  Unregister  the  Interrupt  Handler  */ 
pciio_intr_disconnect ( cp->dev_intr ) ; 
pciio_intr_f ree (cp->dev_intr ) ; 

#if  0 

/*  unregister  error  handler  */ 

pciio_error_register ( conn ,  0,  0); 

#endif 

/*  free  up  all  our  maps  */ 

if  (  cp->cfg_map  )  pciio_piomap_done  (  cp->cfg_map  ) ; 
if  (  cp->mite_map  )  pciio_piomap_done  {  cp->mite_map  ) ; 
if  (  cp->dio_map  )  pciio_piomap_done  (  cp->dio_map  ) ; 

/*  free  up  the  struct  itself  */ 

kmem_free  (  cp,  sizeof ( card_t )  ); 


} 

/*  free  up  our  vert extes  */ 

hwgraph_edge_remove  (  hwgraph_root ,  "diodrvr",  NULL  ); 
hwgraph_edge_remove (conn,  "diodrvr" ,  NULL  ) ; 


device_inf o_set  (  vhdl ,  0  ) ; 
hwgraph_vertex_unref  (  vhdl  )  ; 
hwgraph_vertex_destroy  {  vhdl  )  ; 

return ( 0 )  ; 

} 


k  k  k  c?  d.  o  d  it  v*  it  2  n  t  r 


* 

* 

* 

Name : 

di odrvr_in tr 

* 

•k 

Purpose : 

Our  interrupt  handler 

k 

k 

Returns : 

None. 

void 

diodrvr_in.tr  (  intr_arg_t  arg 

{ 

register  card_t 
register  buf_t 
register  caddr_t 


*cp; 

*bp; 

mite_adr_mite ,  dio_adr ; 


register  uint_t 
register  int 
register  int 

size_t 

alenaddr_t 

register  int 
register  int 

size_t 

alenaddr_t 

alenlist_t 


intcsr,  CHORbits, 
i,  rw,  err; 
s; 

p_size ; 
p_addr ; 
count ; 
offset ; 

size  ; 


CHCRbits ; 


addr  ; 


unmappedList ,  mappedList; 


register  uint_t 


DMA_FLAGS  =  PCI IO_DMA_DATA  I  PCIIO_PREFETCH ; 


unmappedList  =  alenlist_create (  AL_NOCOMPACT  ) ; 
mappedList  =  alenlist_create (  AL_NOCOMPACT  ) ; 


/*  get  the  lock  */ 

cp  =  (card_t  *)arg; 

nanotime  (  &  cp->intr_time ) ; 

s  =  DIODRVR_LOCK ( &cp->diodrvr_mlock ) ; 


/*  a  stray  interrupt  ?  */ 

dio_adr  =  cp->dio_adr; 

intcsr  =  Inp8 (dio_adr  +  (Group_l_Flags ^3 ) ) ; 
if  (  (intcsr  &  0xE3 )  ==  0  )  { 

DIODRVR_UNLOCK ( &cp->diodrvr_mlock ,  s) ; 

return ; 


/*  report  interrupt  */ 

#if def  DEBUG 

printf  ( " diodrvrlntr :  Count  Expired\n”  )  ; 
#endif 


bp  =  cp->bp; 

/*  cancel  any  outstanding  timer  */ 
printf (" cancel  timer \n" ) ; 
if  (  cp->tid  >  0  )  { 

untimeout (cp->tid) ; 
cp->tid  =  0; 

} 


*  *  * 


t  .  /*  reset  the  MITE  Interrupt  */ 

CHCRbits  =  (unsigned  int)  (DMA_CHCR_CLR_DONE_IE  I  DMA_CHCR_CLR_DMA_IE ) ; 

Out32 (DMA_BASE_ADDR  +  DMA_CHCR,  CHCRbits); 

/*  reset  the  DIO  interrupt  */ 

Out8 (cp->dio_adr  +  (Group_l_First_Clear A3 ) ,  0xF8);  /*  bits  4,5,  7  */ 

Out8 (cp->dio_adr  +  (Group_l_Second_Clear A3 ) ,  0x03); 

/*  disarm  the  DMA  and  reset  the  MITE  */ 

CHORbitS  =  (DMA_CHOR_DMARESET  |  DMA_CHOR_FRESET  |  DMA_CHOR_ABORT  | 
DMA_CHOR_CLR_SEND_TC  )  ; 

Out32 (DMA_BASE_ADDR  +  DMA_CHOR,  CHORbits); 

/*  stop  the  DIO  */ 

Out8(dio_adr  +  ( Protocol_Register_l_Group_l ^3 )  ,  0x0); 

/*  single  page  DMA  done.  DMA  the  next  page  if  any  */ 
if  (cp->dmatype  ==  DMA_PAGE )  { 

bp->b_resid  -=  cp->dmasize; 
cp->page_no-- ; 

if  (  cp->page_no  <=  0  )  {  /*  no  more  pages  * / 

#if def  DEBUG 

printf  ( " diodrvrlntr :  No  more  pages  to  Dma\n"  ); 
printf  ("diodrvrlntr:  biodone()  read/write\n"  ); 

#endif 

alenlist_done (  cp->addrList  ) ; 
alenlist_done (  cp->alenList  ) ; 

cp->addrList  =  0; 
cp->alenList  =  0; 

cp->dmastat  =  DMA_IDLE; 

/*  free  our  DMA  maps  */ 
pciio_dmamap_f ree (cp->buf f er_map ) ; 
pciio_dmamap_f ree (cp->link_map) ; 

/*  reset  the  DIO  */ 

Out8(dio_adr  +  (Protocol_Register_l_Group_l A3 )  ,  0x0); 
biodone (cp->bp) ; 

DIODRVR_UNLOCK ( &cp->diodrvr_mlock ,  s) ; 
goto  get_out ; 

} 

/*  get  next  page  to  DMA  */ 

■  #if def  DEBUG 

printf  ("diodrvrlntr:  DMA  next  page  ..left  =  %d\n"  ,  cp->page_no-l  ); 

#endif 

/*  set  up  alenlist  for  next  DMA  page  */ 
count  =  0 ; 
i  =  0; 

for  (  ; ;  )  { 

if  (  alenlist_get (cp->alenList ,  NULL,  NBPP,  &addr,  &size,  0)  != 

ALENLIST_SUCCESS  )  { 

break ; 

} 

if  ((count  +=  size)  ==  cp->dma_page_size )  { 

/*offset  =  alenlist_cursor_offset(  cp->addrList,  NULL  ) ; 
alenlist_cursor_init  (  cp->addrList,  offset  - 

sizeof (alenlist_t) ,  NULL);*/ 

break ; 

} 

printf (" setting  up  DMA  page  in  Intr  i:  %d  count:  0x%x  addr :  0x%x\n' 


i.  coupt,  addr); 


driver!  ! " )  ; 


alenlist_append (unmappedList ,  addr,  size,  AL_NOCOMPACT )  ; 
i  +  +; 

}  /*  for  (;;)  */ 

alenlist_cursor_init  (  unmappedList,  NULL,  NULL  ); 
pciio_dmamap_done (  cp->buf f er_map  ) ; 

mappedList  =  pciio_dmamap_list  (  cp->buf fer_map ,  unmappedList,  DMA_FLAGS); 

if  (  mappedList  ==  (alenaddr_t)NULL  )  { 

cmn_err  (CE_NOTE,  "diodrvrStrategy :  Cannot  create  alenlist"  ); 
bioerror  (  bp,  EIO) ; 
biodone  (bp) ; 

pciio_dmamap_f ree (cp->buf fer_map) ; 
pciio_dmamap_f ree ( cp->link_map ) ; 

} 

alenlist_cursor_init  (  mappedList,  NULL,  NULL  ); 
alenlist_get (  mappedList,  NULL,  NBPP,  &p_addr,  &p_size,  0); 
p_size  =  count; 

printf (“ start  single  page  DMA  of  size:  0x%x  addr:  0x%x\n"  ,  p_size,  p_addr) 

if  (  (p_addr  <  0x30000000)  | |  (p_addr  >.  0x50000000)  )  { 

cmn_err  (CE_NOTE,  "diodrvrStrategy:  Incorrect  DMA  mapping.  Exiting 


alenlist_done (  cp->alenList  ) ; 
alenlist_done (  mappedList  ) ; 

pciio_dmamap_f ree (  cp->buf f er_map  ) ; 
pciio_dmamap_f ree (  cp->link_map  ) ; 

bioerror  (  bp,  EIO) ; 
biodone  (bp) ; 

DIODRVR_UNLOCK (&cp->diodrvr_mlock,  s) ; 
goto  get_out ; 

} 

if  (  cp->dmastat  ==  DMA_READ_WAIT  ) 
rw  =  B_READ ; 
else  rw  =  B_WRITE ; 

diodrvr_int_countexp (  cp  ) ; 

diodrvrStartSingleDma  (  cp,  p_addr ,  p_size,  rw  ) ; 

if  (  rw  ==  B_READ  ) 

cp->dmastat  =  DMA_READ_WAIT ; 
else  cp->dmastat  =  DMA_WR I T E_WAI T  ,- 
cp->chain_list  =  NULL; 

/*  so  we  don't  wait  forever  for  an  interrupt  */ 

cp->tid  =  itimeout (diodrvrTimeOut ,  cp,  RW_TIMER ,  pltimeout,  0,  0,  0); 
DIODRVR_UNLOCK ( &cp->diodrvr_mlock ,  s) ; 


goto  get_out ; 

}  /***  if  (  cp->dmatype  ==  DMA_PAGE  )  ***/ 

/*  free  up  chain  list  structure  */ 

if  (cp->dmatype  ==  DMA_CHAIN) 

kmem_free  (  cp->chain_list ,  cp->page_no  *  sizeof ( diodrvr_dmapage_t )  ); 


alenlist_done (  cp->addrList  )  ; 
alenlist_done (  cp->alenList  ) ; 


cp->addrList  =  0; 
cp->alenList  =  0; 


cp->dmastat  =  DMA_IDLE; 
bp->b_resid  -=  cp->dmasize; 


/*  free  our  DMA  maps  */ 
pciio_dmamap_f ree ( cp->buf f er_map ) ; 
pciio_dmamap_f ree ( cp->link_map ) ; 


/*  reset  the  DIO  */ 

Out8(dio_adr  +  ( Protocol_Register_l_Group_l  A3 )  ,  0x0); 
biodone  (cp->bp) ; 

DIODRVR_UNLOCK ( &cp->diodrvr_mlock ,  s ) ; 


get_out : 


#if def  DEBUG 

printf  (  "diodrvrlntr  exit\n"  )  ; 
#endif 


} 

***  d  i  odrvr_unl  o  a  d  *** 


* 

* 

* 

Name: 

diodrvr_unload 

* 

* 

Purpose : 

Unloads  the  driver 

* 

* 

Returns : 

0  Success  or  errno 

? trie***********************************************************************/ 

int 

diodrvr_unload (void) 

{ 

cmn_err  (CE_NOTE,  "Unloading  the  PCI_DIO_32HS  Driver"  ); 

return ( 0 ) ; 


drvr_unreg 

********************************************** 

* 

*  Name:  diodrvr_unreg 

* 

*  Purpose:  Unregister  the  driver 

* 

*  Returns:  0  Success  or  errno 

* 

*************************************************************************/ 

int 

diodrvr_unreg (void) 

{ 

cmn_err  (CE_NOTE,  "Unregisterning  PCI-DIO-32HS  Driver"  ); 
pciio_driver_unregister ( DRIVER_PREFIX ) ; 

return ( 0 ) ; 

} 

y************************************************************************* 
***  di  odrvr_open 

************************************************************************* 


^/*************************** 
***  d  i  o 


*  *  * 


*  *  * 


*  Name:  diodrvr_open 

* 

*  Purpose:  Opens  the  card.  This  sample  driver  simply  verifies  that 

*  the  card's  info  structure  can  be  retrieved  and  checks 

*  the  card's  Base_Register. 

* 

*  Returns:  0  =  Success,  or  errno. 

* 

*************************************************************************/ 

int 

diodrvr_open (dev_t  *devp,  int  flag,  int  otyp,  cred_t  *cred) 

{ 

register  card_t  *cp; 

register  vertex_hdl_t  vhdl; 

_ userabi_t  uabi ; 

/*  Get  the  vertex  handle  and  pointer  to  card's  info  */ 
vhdl  =  dev_to_vhdl  (  *devp  ) ; 
if  (vhdl  ==  NULL) { 

cmn_err (CE_WARN,  " diodrvr_open :  dev_to_vhdl  returns  NULL"  ) 
return ( EIO) ; 

} 

cp  =  (card_t  * ) device_inf o_get  (  vhdl  ); 


/*  some  error  checking  first  */ 
if  (  ! ( cp->Status  &  CARD_ATTACHED )  )  { 

cmn_err  (CE_WARN,  "diodrvr_open:  Driver  is  not  attached"  )  ; 
return  (ENODEV) ; 

} 

if  (  cp->StatUS  &  CARD_OPEN)  { 

cmn_err  (CE_WARN,  "diodrvr_open:  Device  is  busy"  )  ; 
return  (EBUSY) ; 

} 

/*  diodrvrReset (cp) ;  reset  the  board  */ 

cp->StatUS  |=  CARD_OPEN; 

/*  default  values  */ 
cp->dmatype  =  DMA_PAGE; 

/*  cp->dmacmd  =  DI ODR VR_ TRANS P ;  */ 

#if def  DEBUG 

printf ("\n  ***  DIO  card  opened  ***  \n"  ); 

#endif 

/*  get  user's  ABI  for  correct  struct  usage  in  diodrvr_ioctl ( )  */ 

userabi (&uabi) ; 

if  (  uabi .uabi_szptr  ==  8  ) 

cp->user_abi  =  ABI_IRIX5_64 ; 
else  cp->user_abi  =  ABI_IRIX5_N32 ; 

/*  initialize  our  mutex  lock  and  sv_t  for  sleep/wake  */ 

DIODRVR_LOCK_INIT ( &cp->diodrvr_mlock ) ; 

SV_INIT (&cp->diodrvr_sv,  SV_DEFAULT ,  "diodrvrsv"  ); 


/*  zero  out  all  time  measurements  */ 

bzero  (  &cp->start_time ,  sizeof ( struct  timespec)  ); 
bzero  (  &cp->intr_time ,  sizeof ( struct  timespec)  ); 
bzero  (  &cp->call_time ,  sizeof ( struct  timespec)  ); 
bzero  (  &cp->ret_time ,  sizeof ( struct  timespec)  ); 

return ( 0 )  ; 

} 


*  k  k 


/************************************************************************* 

'  t  » 

***  diodrvr_close 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
* 

*  Name:  diodrvr_close 

k 

*  Purpose:  Closes  the  card.  This  sample  driver's  close  statement 

*  prints  out  the  addresses  and  Base_Register ' s  value  for 

*  verification. 

k 

*  Returns:  0  =  Success,  or  errno 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 

int 

diodrvr_close (dev_t  dev,  int  flag,  int  otyp,  cred_t  *cred) 

{ 

register  card_t  *cp; 

register  vertex_hdl_t  vhdl  ; 

/*  get  the  vertex  handle  and  pointer  to  card's  info  */ 
vhdl  =  dev_to_vhdl  (  dev  ) ; 

cp  =  (card_t  * ) device_info_get  (  vhdl  ); 
cp->Status  &=  ~CARD__OPEN ; 

/*  zero  out  all  time  measurements  */ 
bzero  (  &cp->start_time ,  sizeof ( struct  timespec )  ); 
bzero  (  &cp->intr_time ,  sizeof ( struct  timespec)  ); 
bzero  (  &cp->call_time ,  sizeof ( struct  timespec)  ); 
bzero  (  &cp->ret_time ,  sizeof ( struct  timespec)  ); 

return ( 0 )  ; 

} 

/A************************************************************************ 

***  d  i  odrvr_map 

* 

*  Name :  di  odrvr_map 

* 

*  Purpose:  Allocate  a  piece  of  continious  memory  and  map  it  to  user's 

*  address  space. 

•k 

*  Returns:  0  =  Success,  or  errno 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 

int 

diodrvr_map  (  dev_t  dev,  vhandl_t  *vh,  off_t  offset,  size_t  len,  uint_t  prot  ) 


{ 

register  int  ret; 

register  int  s; 

register  caddr_t  kv; 

register  vertex_hdl_t  vhdl ; 

register  card_t  *cp; 


/*  get  the  vertex  handle  and  pointer  to  card's  info  */ 

vhdl  =  dev_to_vhdl  (  dev  ) ; 

cp  =  (card_t  * ) device_inf o_get  (  vhdl  ); 

if  (  cp->dio_adr  ==  (caddr_t)NULL  )  { 

cmn_err  (CE_NOTE ,  "diodrvr_map :  No  DIO  memory  for  mapping"  )  ; 
return  (ENOMEM) ; 

} 

if  (  len  >  ( size_t ) ( DIO_RAM_SIZE )  )  { 

cmn_err  ( CE_NOTE ,  "diodrvr_map:  Only  %d  bytes  available  for  map,  requested  %d 
bytes",  DI0_RAM_SIZE,  len  ); 

return  ( ENOMEM ) ; 


} 


I  I 

ret  =  v_mapphys (  vh,  (void  * ) cp->dio_adr ,  len  ); 
if  (  ret  >  0  )  { 

cmn_err  (CE_WARN,  " di odrvr_map :  Could  not  map,  ret  =  %d"  ,  ret  ) 
return  (ret); 

} 

/*  save  for  later  */ 
cp->vhandl  =  vh; 

cmn__err  (CE_NOTE,  " di odrvr_map :  mapped  %d  bytes"  ,  len  ); 
return  (ret) ; 

} 

fkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

***  d  i  odrvr_unmap  *** 

A************************************************************************ 

k 

*  Name:  diodrvr_unmap 

* 

*  Purpose:  Unmap  the  kernel  buffer  we  allocated  before. 

k 

*  Returns:  Always  0.  There  is  nothing  to  free  up  here. 

•k 

*************************************************************************/ 

int 

diodrvr_unmap  (  dev_t  dev,  vhandl_t  *vh  ) 

{ 

return  ( 0 ) ; 

} 


***  diodrvr_ioctl  *** 


*  Name : 

k 

*  Purpose : 

k 


diodrvr_ioctl 

Handles  user  Ioctl  command.  These  commands  can  be 
found  in  diodrvr_user.h. 


*  Returns:  0  =  Success,  or  errno 

* 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 

int 

diodrvr_ioctl (dev_t  dev,  int  cmd,  void  *arg,  int  mode,  cred_t  *cred, 
int  *rvalp  ) 


{ 


register  card_t  *cp; 

register  vertex_hdl_t  vhdl ; 

register  uint_t  *tmp_ibuf; 

register  int  tot_bytes ,  err,  i,  s; 

uint_t  tmp_int ; 

/*  get  the  vertex  handle  and  pointer  to  card's  info  */ 

vhdl  =  dev_to_vhdl  (  dev  ) ; 

cp  =  (card_t  * ) device_info_get  (  vhdl  ); 

if  (  cp  ==  (card_t  * ) NULL  )  { 

cmn_err  (CE_WARN,  "diodrvr_ioctl :  Card_t  is  NULL"  ); 
return  (EIO) ; 

} 

/*  is  device  opened  ?  */ 

if  (!(  cp->status  &  CARD_OPEN)  )  { 

cmn_err  ( CE_NOTE ,  " diodrvr_ioctl :  Device  is  not  opened"  ); 

return  (EIO) ; 


,  } 

/*  #ifdef  DEBUG 

print f ( "ioctl  arg:  Ox%x\n",  *((int  *)arg)); 
#endif  */ 


/*  =================== 

*  Ioctl  commands 

*  ===================  */ 

switch  (  cmd  )  { 

case  DIODRVR_RESET : 

diodrvr_reset  (  cp  ) ; 

break ; 

case  DIODRVR_BURST_CLKOUT  : 

diodrvr_burst_clkout (  cp,  arg  ) ; 

break ; 


case  DIODRVR_BURST_CLKIN  : 

diodrvr_burst_clkin (  cp,  arg  } ; 

break ; 

case  DIODRVR_DMA_GROUPl : 

diodrvr_dma_groupl (  cp,  arg) ; 

break ; 

case  DIODRVR_INTR_COUNTEXP  : 

diodrvr_int_countexp  {  cp  )  ; 

break ; 

case  DIODRVR_RUN: 

diodrvr_run (  cp  ) ; 

break ; 

case  DIODRVR_STOP : 

diodrvr_stop (  cp  ) ; 

break ; 


case  DIODRVR_GETTIME : 

diodrvrUserTime  (  cp,  arg  ) ; 

break ; 

}  /***  end  switch  **/ 

return ( 0 )  ; 

} 

/■**************************************•*********************************** 
***  diodrvr_read 

************************************************************************* 

* 

*  Name :  di  odrvr_read 

* 

*  Purpose:  Read  entry  routine .  DMAs  data  from  the  board  to  the 

*  user's  address  space . 

* 

*  Returns:  0  =  Success,  or  errno 

* 

*************************************************************************/ 

int 

diodrvr_read (  dev_t  dev,  uio_t  *uiop,  cred_t  *crp) 

{ 

register  card_t  *cp; 
register  vertex_hdl_t  vhdl ; 

register  int  ret; 

/*  get  to  the  board's  info  structure  */ 


*  *  * 


vhdl  =  dev_to_vhdl  (  dev  ) ; 

cp  =  (card_t  * ) device_inf o_get  (  vhdl  ); 

cp->bp  =  (buf_t  * ) NULL ; 

cp->addrList  =  0; 

cp->dmastat  =  0; 

cp->dmabits  =  0; 

/*  do  the  transfer  */ 

ret  =  uiophysio  (  diodrvr_Strategy ,  NULL,  dev,  B_READ,  uiop  ); 


ret  =  0 ; 

if  (  cp->addrList  )  { 

alenlist_done (cp->addrList ) ; 
cp->addrList  =  0; 

} 

#if def  DEBUGTIME 

diodrvrReportTime  (  "diodrvrRead" ,  cp,  1)  ; 

#endif 

return  (  ret  )  ; 

} 

/************************************************************************* 
***  diodrvr_wri  t  e  *** 

************************************************************************* 

* 

*  Name:  diodrvr_write 

* 

*  Purpose:  Write  entry  routine.  DMAs  data  from  user's  address  space 

*  to  the  board. 

* 

*  Returns:  0  =  Success,  or  errno 

* 

************************************************************************* ^ 
int 

diodrvr_write (  dev_t  dev,  uio_t  *uiop,  cred_t  *crp) 

{ 

register  card_t  *cp; 

register  vertex_hdl_t  vhdl ; 

register  int  ret ; 

/*  get  to  the  board's  info  structure  */ 

vhdl  =  dev_to_vhdl  (  dev  ) ; 

cp  =  (card_t  * ) device_inf o_get  (  vhdl  ); 

cp->bp  =  (buf_t  * ) NULL ; 

cp->dmastat  =  0 ; 

cp->dmabits  =  0; 

cp->addrList  =  0; 

cp->dmatype  =  DMA_PAGE ; 

bzero  (  &cp->start_time ,  sizeof ( struct  timespec )  ) ; 

bzero  (  &cp->intr_time ,  sizeof ( struct  timespec)  ) ; 
bzero  (  &cp->call_time ,  sizeof ( struct  timespec)  ) ; 
bzero  (  &cp->ret_time ,  sizeof ( struct  timespec)  ); 

printf (" entering  diodrvrWrite  routine\n"  ); 

/*  do  the  transfer  */ 

nanotime  (  &cp->call_time  ) ; 

ret  =  uiophysio  (  diodrvr_Strategy ,  NULL,  dev,  B_WRITE ,  uiop  ); 
nanotime  (  &cp->ret_time  ) ; 

printf ( "diodrvr_Write :  returned  from  diodrvrStrategy :  %d\n"  ,  ret); 


if  (  cp->addrList  )  { 

alenlist_done (cp->addrList ) ; 
cp->addrList  =  0; 


# i f def  DEBUGTIME 

diodrvrReportTime  (  "diodrvr_Write" ,  cp,  1) ; 

#endif 

printf ( " diodrvr_Write :  returning  from  driver:  %d\n"  ,  ret) 

return  (  ret  ) ; 


d  i  odrvr_error 


************************************************************************* 


*  Name : 


diodrvr  error 


*  Purpose:  Traps  PCI  bus  error. 

* 

*  Returns:  0  =  Success,  or  errno 

* 

*************************************************************************/ 

static  int 

diodrvr_error (void  *einfo, 
int  error_code, 
ioerror_mode_t  mode, 
ioerror_t  *ioerror) 

{ 

cmn_err  (CE_NOTE,  "diodrvr_error :  called"); 

printf  ("error_code  =  %d  (0x%x)\n"  ,  error_code ,  error_code  ); 
printf  ( " io_errortype  =  %d\n"  ,  ioerror->ie_errortype  ); 
printf  ( " io_busspace  =  %d\n”  ,  ioerror->ie_busspace  ); 
printf  ( " io_busaddr  =  0x%x\n"  ,  ioerror->ie_busaddr  ); 

printf  ("io_memaddr  =  0x%x\n"  ,  ioerror->ie_memaddr  ); 

printf  ("error_mode  =  %d  (0x%x)\n"  ,  mode,  mode  ); 
return ( IOERROR_UNHANDLED ) ; 


Supporting  Routines 


************************************************************************** 


d  i  odrvr_Stra  t  e  g  y 


*  Name : 


diodrvr_Strategy 


*  Purpose:  Strategy  routine.  It  actually  handles  read/write 

*  and  starts  the  DMA.  It  is  called  by  uiophysio ( )  kernel 

*  routine. 

* 

*  Returns:  0  =  Success,  or  errno 

* 

************************************************************************* y 

static  int 

diodrvr_Strategy  (  buf_t  *bp  ) 


{ 


register  card_t  *cp; 

register  vertex_hdl_t  vhdl ,  conn; 

register  diodrvr_dmapage_t  *dmaPg; 

register  int 
register  int 
register  uint_t 
alenlist_t 
size_t 
alenaddr_t 
iopaddr_t 

pciio_dmamap_t 
device_desc_t 

register  int 
register  int 

size_t 
alenaddr_t 

register  uint_t 
PC 1 1 0_WR I TE_GATHER  ; 

if  (  !BP_ISMAPPED  (bp)  )  { 

cmn_err  (CE_NOTE ,  "diodrvrStrategy:  Unmapped  buf_t  used\n"  ); 
bioerror  (  bp,  EIO) ; 
biodone  (bp) ; 

return ( EIO ) ; 

} 

printf ( "diodrvrStrategy :  entering  diodrvrStrategy\n"  ); 

/*  get  to  the  board's  info  structure  */ 
vhdl  =  dev_to_vhdl  (  bp->b_edev  ) ; 
cp  =  (card_t  * ) device_inf o_get  (  vhdl  ); 
conn  =  cp->conn; 

cp->dma_page_size  =  0x40000;  /*  256  KB  */ 

printf ( "diodrvrStrategy :  done  getting  board's  info  structured"  ); 

/*  clear  error  and  save  bp  */ 

bioerror (bp,  0); 
bp->b_resid  =  bp->b_bcount ; 
cp->bp  =  bp; 

if  (  bp->b_flags  &  B_READ  ) 

rw  =  B_READ ;  /*  board  ->  mem  */ 

else  rw  =  B_WRITE ;  /*  mem  ->  board  */ 

printf ( "diodrvrStrategy :  allocating  DMA  maps\n"  ); 

/*  set  up  mapping  device  descriptor  */ 

dev_desc  =  0; 

/*  allocate  our  DMA  maps  */ 

buffer_map  =  pciio_dxnamap_alloc  (  conn,  dev_desc ,  cp->dma_page_si  ze  +  0x6000,  DMA__FLAGS 

)  ; 

if  (  buffer_map  ==  (pciio_dmamap_t ) NULL  )  { 

cmn_err  (CE_NOTE ,  "diodrvrStrategy:  Cannot  create  buffer  map"  ); 
bioerror  (  bp,  EIO) ; 
biodone  (bp) ; 

return ( EIO ) ; 

} 

link_map  =  pciio_dmamap_alloc  (  conn,  dev_desc ,  0x1000,  DMA_FLAGS  ); 
if  (  link_map  ==  (pci io_dmamap_t ) NULL  )  { 

cmn_err  ( CE_NOTE ,  "diodrvrStrategy:  Cannot  create  link  map"  )  ; 
bioerror  (  bp,  EIO) ; 


i,  ret,  rw,  tot_bytes ; 
s  ; 

f ill_bits ; 
addrList2 ; 
p_size ; 
p_addr ; 
p_dmaPg ; 

buf  f er_map ,  link_map ; 
dev_desc ; 

count ; 
offset ; 

size  ; 
addr  ; 

DMA_FLAGS  =  PCIIO_PREFETCH  | 


■^TTw" 


r.c 


biodone  (bp) 

pciio_dmamap_f ree (buf f er_map ) ; 
return (EIO) ; 


cp->buf fer_map  =  buf fer_map ; 
cp->link_map  =  link_map; 

/*  create  scatter-gather  list  */ 

cp->alenList  =  buf_to_alenlist  ( (alenlist_t ) NULL,  bp,  AL_NOCOMPACT ) ; 
addrList2  =  alenlist_clone (  cp->alenList ,  AL_NOCOMPACT ) ; 


cp->addrList_page  =  alenlist_create (  AL_NOCOMPACT  ) ; 


if  ( 


chaining\n" ) 


(cp->dmatype  ==  DMA_CHAIN )  | |  (cp->dmatype  ==  DMA_SINGLE)  )  { 

#if def  DEBUG 

printf ( "diodrvrStrategy :  translating  DMA  addresses  for  link 

#endif 

cp->addrList  =  pciio_dmamap_list  (  buffer_map,  addrList2 ,  DMA_FLAGS); 
if  (  cp->addrList  ==  (alenaddr__t )NULL  )  { 

cmn_err  (CE_NOTE,  "diodrvrStrategy:  Cannot  create  alenlist"  ); 
bioerror  (  bp,  EIO) ; 
biodone  (bp) ; 

pciio_dmamap_f ree (buffer_map) ; 
pciio_dmamap_f ree (link_map) ; 
return ( EIO) ; 


} 


} 


printf ( "diodrvrStrategy :  getting  alenlist  size\n"  ); 

#if  0 

cp->page_no  =  alenlist_size  (  cp->alenList  ) ; 

#endif 


if  (cp->dmatype  ==  DMA_PAGE)  { 

cp->page_no  =  bp->b_bcount  /  cp->dma_page_size ; 
if  ( (bp->b_bcount  %  cp->dma _page_size)  !=0) 

(cp->page_no) ++; 

} 

else 

cp->page_no  =  diodrvrAlenlistSize  (  cp->alenList  ) ; 
printf ( "diodrvrStrategy :  number  of  pages  %d  DMAtype:  %d\n"  ,  cp->page_no,  cp->dmatype 


/*  ======================= 

*  Chained  DMA 

*  =======================  * / 

if  (  cp->dmatype  ==  DMA_CHAIN  )  { 

printf (" diodrvrStrategy :  making  chain\n"  ); 

dmaPg  =  diodrvrMakeChain  (  cp,  cp->addrList ,  cp->page_no  ); 

if  (  dmaPg  ==  ( diodrvr_dmapage_t  * ) NULL  )  { 

cmn_err  (CE_NOTE, 

"diodrvrStrategy:  Error  creating  chain  list"  ); 
alenlist_done  ( cp->addrList ) ; 
bioerror  (bp,  EIO) ; 
biodone  (bp); 

pciio_dmamap_f ree (buffer_map) ; 
pciio_dmamap_f ree (link_map) ; 
return (EIO) ; 

} 

tot_bytes  =  cp->page_no  *  sizeof { diodrvr_dmapage_t ) ;  /*  length  of  link  chain  in 

bytes  */ 


p_dmaPg  =  pciio_dmamap_addr  (  linkjmap,  kvtophys (dmaPg) ,  tot_bytes); 

if  (  p_dmaPg  ==  (iopaddr_t)NULL)  { 
cmn_err  (CE_NOTE, 

"diodrvrStrategy :  Error  creating  chain  list"  )  ; 
alenlist_done  (cp->addrList ) ; 
bioerror  (bp,  EIO) ; 
biodone  (bp) ; 

pciio_dmamap_f ree (buffer_map) ; 
pciio_dmamap_f ree (link_map) ; 
return (EIO) ; 

} 

#if  0 

/*  write  back  cache  for  chain  list  */ 

dki_dcache_wbinval  (  dmaPg,  tot_bytes  ) ; 

#endif 


/*  start  the  Chained  Dma  */ 
s  =  DIODRVR_LOCK ( &cp->diodrvr_mlock ) ; 

diodrvrStartProgDma  (  cp,  p_dmaPg,  bp->b_bcount ,  rw  ); 

/*************************************** 

This  is  the  test  section 


driver! ! " ) ; 


cp->addrList  =  pci io_dmamap_list  (  buffer_map,  cp~>alenList,  PCII0_DMA_DATA) ; 
if  (  cp->addrList  ==  (alenaddr_t) NULL  )  { 

cmn_err  (CE_NOTE,  "diodrvrStrategy:  Cannot  create  alenlist" ) ; 
bioerror  (  bp,  EIO); 
biodone  (bp); 

pciio_dmamap_free (buffer_map) ; 
pciio_dmamap_free (link_map) ; 
return (EIO) ; 

} 

alenlist_get  (  cp->addrList,  NULL,  NBPP,  &addr,  &size,  0); 

printf ( "addr:  Ox%x  size:  Ox%x\n" ,  addr,  size); 

if  (  (addr  <  0x20000000)  //  (addr  >  0x60000000)  )  { 

cmn_err  (CE_NOTE,  "diodrvrStrategy:  Incorrect  DMA  mapping.  Exiting 

bioerror  (  bp,  EIO) ; 
biodone  (bp) ; 

alenlist_done (  cp->addrList  ); 
alenlist_done (  cp->addrList _page  ); 

pciio_dmamap_free (buffer_map) ; 
pciio_dmamap_free(link_map) ; 
return (EIO) ; 

} 

diodrvrStartSingleDma  (  cp,  addr,  bp->b_bcount,  rw  ); 


End  of  test  section 


if  (  rw  ==  B_READ  ) 

cp->dmastat  =  DMA_READ_WAIT ; 
else  cp->dmastat  =  DMA_WRITE_WAIT ; 
cp->chain_list  =  (caddr_t)dmaPg; 

printf ( "diodrvrStrategy :  wait  for  timeout\n"  ); 

/*  so  we  dont  wait  forever  for  an  interrupt  */ 


1  cp->tid  =  i timeout ( diodrvrTimeOut ,  cp,  RW_TIMER,  pltimeout,  0,  0,  0); 

printf ( "diodrvrStrategy :  unlock  raemory\n"  ); 

DIODRVR_UNLOCK ( &cp->diodrvr_mlock ,  s) ; 

printf ( "diodrvrStrategy:  return  to  caller\n"  ); 

return ( 0 ) ; 

}  /*  end  of  chained  DMA  */ 


/*  =========================== 

*  Single  page  DMA 

*  ===========================  */ 

/*  get  a  page  to  DMA  */ 
if  (cp->dmatype  ==  DMA_PAGE)  { 

printf ( "diodrvrStrategy :  setting  up  page  to  DMA\n"  ); 
count  =  0; 
i  =  0; 

alenlist_cursor_init  (  cp->alenList ,  NULL,  NULL  ); 
for  (  ;  ;  )  { 

if  (  alenlist_get (  cp->alenList ,  NULL,  NBPP,  &addr,  &size,  0)  != 

ALENLI ST_SUCCESS  )  { 

break ; 

} 

count  +=  size; 

alenlist_append ( cp->addrList_page ,  addr,  size,  AL_NOCOMPACT ) ; 
i++  ; 

printf (" setting  up  DMA  page  i:  %d  count:  Ox%x  addr:  0x%x\n"  ,  i, 

count,  addr) ; 


if  (count  >  cp->dma_page_size )  { 

printf (" alenlist  create  reset\n"  )  ; 

break ; 

} 

}  /*  for  (;;)  */ 

alenlist_cursor_init  (  cp->addrList_page ,  NULL,  NULL  ); 

cp->addrList  =  pciio_dmamap_list  (  buffer_map,  cp->addrList_page ,  DMA_FLAGS) 

if  (  cp->addrList  ==  (alenaddr_t ) NULL  )  { 

cmn_err  (CE_NOTE ,  "diodrvrStrategy:  Cannot  create  map  alenlist"  )  ; 
bioerror  (  bp,  EIO) ; 
biodone  (bp) ; 

pciio_dmamap_f ree (buffer_map) ; 
pciio_dmamap_f ree (link_map) ; 
return (EIO) ; 


alenlist_get ( cp->addrList ,  NULL,  NBPP,  &p_addr ,  &p_size,  0); 
p_size  =  count; 

}  /*  end  if  (cp->dmatype  ==  DMA_PAGE)  */ 

else  {  /*  only  gets  here  is  dmatype  ==  DMA_SINGLE  * / 

if  (  alenlist_get ( cp->addrList ,  NULL,  NBPP, 

&p_addr ,  &p_size,  0)  !=  ALENLIST_SUCCESS  )  { 

cmn_err  (CE_WARN,  "diodrvrDma:  Not  enough  Memory"  )  ; 

alenlist_done  ( cp->addrList )  ,- 

bioerror  (  bp,  EIO) ; 

biodone (bp) ; 

return (EIO) ; 

} 

} 

/*  single  dma,  memory  ->  board  */ 

printf (" start  single  page  DMA  of  size:  0x%x  addr:  0x%x\n"  ,  p_size,  p_addr); 


t 

if  (  (p_addr  <  0x20000000}  | |  (p_addr  >  0x60000000)  )  { 

cmn_err  (CE_NOTE,  "diodrvrStrategy :  Incorrect 


driver! ! " ) ; 


bioerror  (  bp,  EIO) ; 
biodone  (bp) ; 

pciio_dmamap_f ree (buffer_map) ; 
pciio_dmamap_f ree (link_map) ; 


return ( EIO ) ; 


} 


DMA  mapping. 


Exiting 


s  =  DIODRVR_LOCK ( &cp->diodrvr_mlock ) ; 
diodrvrStartSingleDma  (  cp,  p_addr ,  p_size,  rw  ); 


if  (  rw  ==  B_READ  ) 

cp->dmastat  =  DMA_READ_WAIT ; 
else  cp->dmastat  =  DMA_WRITE_WAIT ; 

cp->chain_list  =  NULL; 

/*  so  we  don't  wait  forever  for  an  interrupt  */ 

cp->tid  =  i timeout (diodrvrTimeOut ,  cp,  RW_TIMER ,  pltimeout,  0,  0,  0); 

printf (" diodrvrStrategy :  return  from  caller\n"  ); 

DIODRVR_UNLOCK (&cp->diodrvr_mlock ,  s) ; 


} 


return ( 0 ) ; 


/************************************************************************* 
***  d  i  odrvrMakeChain 

* 

*  Name :  di odrvrMakeChain 

* 

*  Purpose:  given  an  alenlist,  creates  chained  list  for  Prog  DMA . 

* 

*  Returns:  NULL  for  error  or  address  of  chained  list 

* 

*************************************************************************/ 


static  diodrvr_dmapage_t  * 
diodrvrMakeChain  (  card_t 
{ 

register 

register  int  i, 

size_t 

alenaddr_t 

iopaddr_t 


cp,  alenlist_t  addrList, 

diodrvr_dmapage_t  * 
tot_words ; 

p_size ; 
p_addr ; 
pa; 


int  page_no  ) 
dmaPg ; 


printf (" dioMakeChain :  entering  dioMakeChain\n"  ); 


dmaPg  =  (diodrvr_dmapage_t  *}kmem_alloc  ((page_no+l)  *  sizeof (diodrvr_dmapage_t ) , 

KM_NOSLEEP  |  KM_PHYSCONTIG  |  KM_C AC  HEAL I GN )  ; 

if  (  dmaPg  ==  (diodrvr_dmapage_t  *)NULL  )  { 

cmn_err  (CE_NOTE,  "diodrvrMakeChain:  Not  enough  mem  for  chained  list"  ); 
return (  ( diodrvr_dmapage_t  * ) NULL) ; 


/*  fill  the  chained  list  with  address-size  values  */ 
for  (  i  =  0;  i  <  page_no ;  i++  )  { 

if  (  alenlist_get (addrList ,  NULL,  NBPP,  &p_addr ,  &p_size,  0)  != 

ALENLIST_SUCCESS  )  { 

cmn_err  (CE_WARN,  "diodrvrMakeChain:  Bad  alenlist\n"  ); 
return (  ( diodrvr_dmapage_t  *)NULL); 

} 

pa  =  pciio_dmatrans_addr  (  cp->conn,  0,  kvtophys ( &dmaPg [ i+1 ] ) , 


s.izeof  t!  diodrvr_dmapage_t )  ,  PCIIO_DMA_DATA )  ; 

tot_words  =  (int)p_size/sizeof (uint_t) ; 

dmaPg [ i ] . size  =  p_size;  /*tot_words; */ 

dmaPg [ i ] . addr  =  p_addr ; 

dmaPg [i] . DAR  =  OxlC; 

dmaPg [ i ] . nextaddr  =  pa ; 

#if def  DEBUG 

printf ( "diodrvrMakeChain:  page  no:  %d  size:  Ox%x  addr:  Ox%x  next  addr: 
Ox%x\n" ,  i,  dmaPg [ i ]. size ,  dmaPg [ i ]. addr ,  dmaPg [i ] .nextaddr ) ; 

#endif 

} 

dmaPg [page_no ]. size  =  0; 

dmaPg [page_no ]. nextaddr  =  0; 

dmaPg [page_no] . DAR  =  0; 

dmaPg  [page_.no  ].  addr  =  0; 

return  (  dmaPg  ) ; 

} 

/************************************************************************* 

***  diodrvrStartProgDma  *** 

************************************************************************* 

* 

*  Name:  diodrvrStartProgDma 

* 

*  Purpose:  Programs  the  board  for  Chained  DMA  and  starts  the  Dma 

* 

*  Returns:  None. 

* 

*************************************************************************/ 
static  void 

diodrvrStartProgDma  (  card_t  *cp,  iopaddr_t  p_dmaPg,  int  tot_bytes ,  int  rw  ) 

{ 

register  caddr_t  dio_adr,  mite_adr; 

register  uint_t  adr_bits,  enable_bits,  dmacfg,  dmacmd,  dmabits; 

register  uint_t  CHORbits,  CHCRbits,  MCRbitS,  DCRbitS,  LKCRbitS,  LKARbitS, 

LCR2bits ; 

#if def  DEBUG 

printf (" diodrvrStartProgDma :  entering  diodrvrStartProgDma\n"  ); 
printf (" diodrvrStartProgDma :  number  of  bytes  is  Ox%x\n"  ,  tot_bytes ) ; 

#endif 

dio_adr  =  cp->dio_adr; 
mite_adr  =  cp->mite_adr ; 
dmacfg  =  cp->dmacfg; 
dmacmd  =  cp->dmacmd; 
dmabits  =  cp->dmabits; 

cp->dmasize  =  tot_bytes ;  /*  number  of  bytes  to  transfer  by  DMA  */ 

printf (" diodrvrStarProgDma :  MITE  Dma  addr:  0x%x\n"  ,  DMA_BASE_ADDR ) ; 

/*  ====================== 

*  memory  ->  board 


*  ======================  */ 

/*  Build  the  CHOR  bit  pattern.  */ 

CHORbits  =  (unsigned  int)  ( DMA_CHOR_DMARESET  |  DMA_CHOR_FRESET  |  DMA_CHOR_SET_SEND_TC ) ; 

/*  Build  the  CHCR  bit  pattern.  */ 

CHCRbits  =  (unsigned  int)  ( DMA_CHCR_LINKLONG  |  DMA_CHCR_BURSTEN  |  DMA_CHCR_SET_DONE_IE 


DMA_CHCR_SET_DMA_I E  )  ; 


/*  if  (direction  ==  INPUT) 


i  CHCRbits  1=  DMA_CHCR_DIR;  */ 

/*  Build  the  MCR  bit  pattern.  */ 

MCRbitS  =  DMA_MC R_RL 6 4  |  DMA_MCR_ASEQxP 1  ]  DMA_MCR_PSIZEWORD  |  DMA_MCR_BLOCKEN ; 

/*  Build  the  DCR  bit  pattern.  */ 

DCRbitS  =  DMA_DCR_RL 6 4  |  DMA_DCR_PSIZEWORD  |  DMA_DCR_PORTIO  |  MITE_DMA_AMDEVICE  ; 

/*  Set  the  drq  request  line  to  use  */ 
switch  (drqnum) 

{ 

case  0 : 

DCRbitS  |=  DMA_DCR_REQSDRQO ; 

break ; 

case  1 : 

DCRbitS  |=  DMA_DCR_REQSDRQ1 ; 

break ; 

case  2 : 

DCRbitS  |=  DMA_DCR_REQSDRQ2 ; 

break ; 

case  3 : 

DCRbitS  |=  DMA_DCR_REQSDRQ3 ; 

break ; 

}  ; 

/*  Build  the  LKCR  bit  pattern.  */ 

LKCRbits  =  (uint_t)  DMA_LKCR_RL64  |  DMA_LKCR_ASEQUP  |  DMA_LKCR_PSIZEWORD ; 

/*  Build  the  LKAR  bit  pattern  (start  address  of  chained  list)  */ 

LKARbits  =  (uint_t)  p_dmaPg; 

#ifdef  DEBUG 

printf ( "diodrvrStartProgDma :  DMA  link  chain  phys  addr  Ox%x\n"  ,  LKARbits) 

#endif 

/*  Read_Important_Registers (cp) ;  */ 

printf ("writing  DMA  registers'^" ) ; 


/*  Write  the  bit  patterns  to  the  registers .  */ 

Out 3 2 ( DMA_BASE_ADDR  +  DMA_CHOR ,  CHORbitS); 

Out 3 2 ( DMA_BASE_ADDR  +  DMA_CHCR ,  CHCRbits); 

Out32 (DMA_BASE_ADDR  +  DMA_MCR ,  MCRbits); 

Out 3 2 ( DMA_BASE_ADDR  +  DMA_DCR ,  DCRbitS); 

Out32 ( DMA_BASE_ADDR  +  DMA_LKCR ,  LKCRbits); 

Out 3  2 ( DMA_BASE_ADDR  +  DMA_LKAR ,  LKARbits); 

/*  Read_Important_Registers (cp) ;  */ 

/*  set  Transfer  count  */ 

Out32 (dio_adr  +  Group_l_Transf er_Count ,  tot_bytes); 
printf ( "arming  the  transfer\n"  )  ; 

/*  arm  the  DMA  transfer  */ 

CHORbitS  =  DMA_CHOR_START; 

Out32 ( DMA_BASE_ADDR  +  DMA_CHOR ,  CHORbits); 
Read_Important_Registers (cp) ; 
printf (" starting  the  transfer\n" ) ; 

/*  start  the  DMA  transfer  */ 

Out8(dio_adr  +  ( Protocol_Register_l_Group_l  ^3  )  ,  OxOF) ; 

/*  Read_Important_Registers (cp) / * / 

} 


•  ' 

/************************************************************************* 

***  diodrvrStartSingleDma  *** 

************************************************************************* 

* 

*  Name:  diodrvrStartSingleDma 

* 

*  Purpose:  Programs  the  board  for  Single  page  DMA  (read  or  write) 

* 

*  Returns:  None. 

* 

*************************************************************************/ 

static  void 

diodrvrStartSingleDma  (  card_t  *cp,  alenaddr_t  p_addr,  size_t  p_size,  int  rw  ) 

{ 

register  caddr_t  dio_adr,  mite_adr; 

register  uint_t  adr_bits,  enable_bits,  dmacfg,  dmacmd,  dmabits,  temp; 

register  int  tot_words ; 

register  uint_t  CHORbits,  CHCRbits,  MCRbits,  DCRbits ,  LKCRbits,  LKARbitS , 

MARbits,  TCRbits; 

dio_adr  =  cp->dio_adr; 
mite_adr  =  cp->mite_adr ; 
dmacfg  =  cp->dmacfg; 
dmacmd  =  cp->dmacmd; 
dmabits  =  cp->dmabits; 
enable_bits  =  0; 
cp->dmasize  =  p_size; 

printf (" diodrvrStartSingleDma :  starting  single  DMA\n"  ); 

tot_words  =  (int)p_size/sizeof (uint_t) ; 

/*  ====================== 

*  memory  ->  board 


*  ======================  */ 

/*  Build  the  CHOR  bit  pattern.  */ 

CHORbits  =  DMA_CHOR_DMARESET  I  DMA_CHOR_FRESET  I  DMA_CHOR_SET_SEND_TC ; 


/*  Build  the  CHCR  bit  pattern.  */ 

CHCRbits  =  DMA_CHCR_SET_DONE_IE  |  DMA_CHCR_SET_DMA_I E  |  DMA_CHCR_BURSTEN  ; 

/*  if  (direction  ==  INPUT) 

CHCRbits  1=  DMA_CHCR_DIR;  */ 

/*  Build  the  MCR  bit  pattern.  */ 

MCRbits  =  DMA_MC  R_RL  6  4  |  DMA_MCR_ASEQxPl  |  DMA_MCR_PSIZEWORD  |  DMA_MCR_BLOCKEN ; 

/*  Build  the  DCR  bit  pattern.  */ 

DCRbits  =  DMA_DC  R_RL  6  4  |  DMA_DCR_PORTIO  |  DMA_DCR_PSIZEWORD  |  DMA_DCR_AMDEVI CE 

DMA_DCR_BLOCKEN ; 

/*  Set  the  drq  request  line  to  use  */ 

swi  t  ch  ( dr qnum ) 

{ 

case  0 : 

DCRbits  | =  DMA_DCR_REQSDRQO ; 

break ; 

case  1 : 

DCRbits  |=  DMA_DCR_REQSDRQ1 ; 

break ; 

case  2 : 

DCRbits  |=  DMA_DCR_REQSDRQ2 ; 

break ; 

case  3 : 

DCRbits  |=  DMA_DCR_REQSDRQ3  ; 


break 


}  ; 


/*  DCRbitS  j=  DMA_DCR_REQSINTMAX;  */ 

/*  Build  the  LKCR  bit  pattern.  * / 

LKCRbitS  =  (uint_t)  DMA_LKCR_RL 6 4  |  DMA_LKCR_AS EQUP  |  DMA_LKCR_PSIZEWORD ; 

/*  Build  the  MAR,  TCR  amd  LKAR  bit  patterns  */ 

MARbits  =  (uint_t)  p_addr; 

TCRbits  =  (uint_t)  p_size; 

LKARbits  =  (uint_t)  0; 

#ifdef  DEBUG 

printf ( " diodrvrStartSingleDma :  DMA  buffer  phys  addr  0x%x  size:  0x%x\n 
MARbits,  TCRbits); 

#endif 

printf ( "writing  DMA  registers\n"  )  ; 


} 


/*  Write  the  bit  patterns  to  the  MITE  DMA  registers .  */ 


Out32 (DMA_BASE_ADDR  + 
Out 3 2 ( DMA_BASE_ADDR  + 


DMA_CHOR ,  CHORbits ) ; 
DMA_CHCR ,  CHCRbitS ) ; 


Out 3 2 ( DMA_BASE_ADDR  +  DMA_MCR, 


MCRbitS ) ; 


Out 3 2 ( DMA_BASE_ADDR  +  DMA_DCR , 
Out 3 2 ( DMA_BASE_ADDR  +  DMA_LKCR , 


DCRbitS )  ; 
LKCRbitS )  ; 


Out32 ( DMA_BASE_ADDR 
Out 3 2 ( DMA_BASE_ADDR 
Out32 ( DMA_BASE_ADDR 


+  DMA_MAR,  MARbits); 

+  DMA_TCR,  TCRbits); 

+  DMA_LKAR ,  LKARbits); 


printf (" arming  the  transfer\n" ) ; 


/*  arm  the  DMA  transfer  */ 

CHORbits  =  DMA_CHOR__START  ; 

Out  3  2  ( DMA_BASE_ADDR  +  DMA_CHOR ,  CHORbits); 


/*  set  Transfer  count  */ 

Out32 (dio_adr  +  Group_l_Transfer_Count ,  p_size); 
printf (" starting  the  transf er\n"  )  ;  \ 
Read_Important_Registers  (cp) ; 

/*  start  the  DMA  transfer  */ 

Out8(dio_adr  +  ( Protocol_Register_l_Group_l ^3 ) ,  OxOF) ; 


***  diodrvrAlenlistSize  *** 

* 

*  Name:  cocoAlenlistSize 

* 

*  Purpose:  Returns  number  of  pairs  in  a  given  alenlist . 

*  Returns:  Number  of  address/size  entries 

* 

*************************************************************************/ 

static  int 

diodrvrAlenlistSize  (  alenlist_t  al  ) 

{ 

register  int  count; 

size_t  size; 


alenaddr_t 


addr  ; 


printf ( "diodrvrAlenlistSize\n" ) ; 

alenlist_cursor_init  (  al,  NULL,  NULL  ); 
count  =  0; 
for  (  ; ;  )  { 

if  (  alenlist_get (al ,  NULL,  NBPP,  kaddr,  &size,  0)  != 

ALENLI ST_SUCCESS  )  { 

break ; 

} 

count ++ ; 

} 

alenlist_cursor_init  (  al ,  NULL,  NULL  ) ; 
return  (count) ; 

} 


/A************************************************************************ 

***  d  i  odrvrTimeOu  t  *** 

************************************************************************* 
* 

*  Name:  cocoTimeOut 

* 

*  Purpose:  We  timedout  waiting  for  a  read/write  interrupt. 

* 

*  Returns:  None . 

* 

static  void 

diodrvrTimeOut  (  card_t  *cp  ) 

{ 

register  uint_t  intcsr; 

register  int  s ; 

/*  someone  has  the  lock  ?  ignore  the  timeout  */ 
if  (  (  s  =  DIODRVR_TRYLOCK (&cp->diodrvr_mlock) )  ==  0  ) 

return ; 

cmn_err  (CE_NOTE,  "diodrvrTimeOut:  Read/Write  Timed  out"  ); 


alenlist_done  (  cp->addrList  ) ; 
cp->addrList  =  0; 


alenlist_done  (  cp->alenList  ) ; 
cp->alenList  =  0; 


/*  free  our  DMA  maps  */ 
pciio_dmamap_f ree ( cp->buf f er_map ) ; 
pciio_dmamap_f ree ( cp->link_map ) ; 


cp->iostat  =  I 0_T IME ; 

bioerror  (  cp->bp,  ETIME) ; 
biodone  (cp->bp) ; 

DIODRVR_UNLOCK ( &cp->diodrvr_mlock ,  s) ; 


***  d  i  o  d  r  v  r_  reset 

*  *  * 

void  diodrvr_reset (card_t  *cp) 

{ 

#if def  DEBUG 

printf (" diodrvr_reset  command  issued. \n"  )  ; 


#endif 


,  /*  stop  all  transfers  */ 

Out8 (cp->dio_adr  +  (Protocol_Register_l_Group_l ^3 )  ,  0x0); 
Out8 (cp->dio_adr  +  ( Protocol_Register_l_Group_2 A3 ) ,  0x0); 


/*  Flush  FIFO  Buffer  and  clear  flags  */ 

Out8 (cp->dio_adr  +  (Group_l_First_Clear ^3 ) ,  OxFF) ;  /*  bits  4,5,  7  */ 
Out8 ( cp->dio_adr  +  (Group_2_First_Clear A3 ) ,  OxFF); 


Out8 (cp->dio_adr  +  (Group_l_Second_Clear ^3 ) ,  0x03); 
Out8 ( cp->dio_adr  +  (Group_2_Second_Clear ^3 ) ,  0x03); 


/*  clear  groups  */ 

Out8 ( cp->dio_adr  +  (Data_Path_Group_l A3 ) ,  0x00); 

Out8 ( cp->dio_adr  +  { Data_Path_Group_2 A3 ) ,  0x00); 


/*  write  zero  to  the  output  ports  */ 

Out32 (cp->dio_adr  +  Port_A_Output ,  0x00); 


} 


***  diodrvr_burst_clkout 

it** 

****************  ***** *****************************************************/ 

void  diodrvr_burst_clkout (card_t  *cp,  int  *arg) 

{ 

char  width; 
ttifdef  DEBUG 

printf (" Executing  diodrvr_burst_protocol_setup\n"  ); 

#endif 


/*  Configure  the  pins  on  ports  ABCD  simultaneously  */ 
Out32 (cp->dio_adr  +  Port_A_Pin_Directions ,  0x00); 

Out32 (cp->dio_adr  +  Port_A_Pin_Mask ,  0x00); 

Out32 (cp->dio_adr  +  Port_A_Pin_Directions ,  OxFFFFFFFF ) ; 


/***  Reset  ***/ 

Out8 (cp->dio_adr  +  ( Protocol_Register_l_Group_l ^3 ) ,  0x00); 

/***  Configure  data  paths  and  ports  ***/ 

Out8 (cp->dio_adr  +  (Data_Path_Group_l ~3 ) ,  *arg) ; 

width  =  ( ( (*arg)  &  0x8)>>3)  +  (((*arg)  &  0x4)>>2)  +  (((*arg)  &  0x2)>>l)  +  ((*arg)  & 

0x1 )  ; 

switch  (width) 

{ 


case 

1  : 

width  = 

break ; 

2;  /* 

8 -bit 

transfers 

*/ 

case 

2  : 

width  = 

break ; 

3;  /* 

16 -bit 

transfers 

V 

case 

3  : 

case 

4  : 

width  = 

break ; 

0;  /* 

32-bit 

transfers 

V 

V 

V 


width  =  (*arg  &  0x80)  >>  2  |  width;  /*  this  sets  bit  5  if  transfer  is  output  */ 
ttifdef  DEBUG 

printf ( "protocol  group:  0x%x\n"  ,  *arg) ;  /*  should  read  0x8f  for  32-bit  output 
printf ( "protocol  width:  0x%x\n"  ,  width);  /*  should  read  0x20  for  32-bit  output 


ttendif 


,  /***  Configure  transfer  width  and  RequireRLevel  ***/ 

Out8 ( cp->dio_adr  +  (Transf er_Size_Control_Group_l  A3  )  ,  width); 

/***  Set  protocol  to  burst  mode  ***/ 

Out8 (cp->dio_adr  +  ( Protocol_Register_l_Group_l A3 )  ,  0x00); 

Out8 (cp->dio_adr  +  ( Protocol_Register_2_Group_l A3  )  ,  0x60); 

Out8 (cp->dio_adr  +  ( Protocol_Register_3_Group_l A3 )  ,  0x00); 

Out8 ( cp->dio_adr  +  ( Protocol_Register_4_Group_l A3  )  ,  0x08); 

Out8 ( cp->dio_adr  +  ( Protocol_Register_5_Group_l A3  )  ,  0x04); 

Out8 ( cp->dio_adr  +  ( Protocol_Register_6_Group_l A3  )  ,  0x00); 

Out8 (cp->dio_adr  +  ( Protocol_Register_7_Group_l  A3 )  ,  0x60); 

Out8 ( cp->dio_adr  +  ( Protocol_Register_8_Group_l A3  )  ,  0x01); 

Out8 ( cp->dio_adr  +  ( Clock_Speed_Group_l A3 )  ,  0x00); 

Out8 (cp->dio_adr  +  (FIFO_Control_Group_l A3 ) ,  0x01); 

} 

/************************************************************************* 

***  diodrvr_burst_clkin 

•k  *  * 

void  diodrvr_burst_clkin ( card_t  *cp,  int  *arg) 

{ 

char  width; 

#if def  DEBUG 

printf ( "Executing  diodrvr_burst_protocol_setup\n"  ); 

#endif 

/*  Configure  the  pins  on  ports  ABCD  simultaneously  */ 

Out32 ( cp->dio_adr  +  Port_A_Pin_Directions ,  0x00); 

Out32 (cp->dio_adr  +  Port_A_Pin_Mask ,  0x00); 

Out32 (cp->dio_adr  +  Port_A_Pin_Directions ,  OxFFFFFFFF) ; 

/***  Reset  ***/ 

Out8 ( cp->dio_adr  +  ( Protocol_Register_l_Group_l A3  )  ,  0x00); 

/***  Configure  data  paths  and  ports  ***/ 

Out8 (cp->dio_adr  +  (Data_Path_Group_l A3 ) ,  *arg) ; 

width  =  (((*arg)  &  0x8)>>3)  +  {((*arg)  &  0x4)>>2)  +  (((*arg)  &  0x2  )»1)  +  ((*arg)  & 

0x1 )  ; 

switch  (width) 

{ 

case  1 : 

width  =2;  /*  8-bit  transfers  */ 

break ; 

case  2 : 

width  =  3;  /*  16-bit  transfers  */ 

break ; 

case  3 : 
case  4 : 

width  =0;  /*  32-bit  transfers  */ 

break ; 

) 

width  =  (*arg  &  0x80)  >>  2  |  width;  /*  this  sets  bit  5  if  transfer  is  output  */ 

# if def  DEBUG 

printf ( "protocol  group:  0x%x\n"  ,  *arg) ;  /*  should  read  0x8f  for  32-bit  output 

V 

printf ( "protocol  width:  0x%x\n"  ,  width);  /*  should  read  0x20  for  32-bit  output 

*/ 

#endif 

/***  Configure  transfer  width  and  RequireRLevel  ***/ 

Out8 ( cp->dio_adr  +  (Transf er_Size_Control_Group_l A3  )  ,  width); 


/  *  *  * 
Out  8 
Out8 
Out8 
Out  8 
Out8 
Out  8 
Out  8 
Out  8 


Set  protocol 

(cp->dio_adr 
(cp->dio_adr 
( cp->dio_adr 
( cp->dio_adr 
( cp->dio_adr 
(cp->dio_adr 
(cp->dio_adr 
(cp->dio_adr 


to  burst  mode  ***/ 

+  ( Protocol_Register_l_Group_l 
+  ( Protocol_Register_2_Group_l 
+  ( Protocol_Register_3_Group_l 
+  ( Protocol_Register_4_Group_l 
+  ( Protocol_Register_5_Group_l 
+  ( Protocol_Register_6_Group_l 
+  ( Protocol_Register_7_Group_l 
+  (Protocol_Register_8_Group_l 


"3)  , 
A3 )  , 
A3)  , 
A3)  , 
A3)  , 
A3)  , 
"3)  , 
"3)  , 


0x00)  ; 
0x1 0 )  ; 
0x00)  ; 
0x20)  ; 
0x04 )  ; 
0x00)  ; 
0x60)  ; 
0x01)  ; 


Out8 ( cp->dio_adr  +  {Clock_Speed_Group_l A3 ) ,  0x00); 
Out8 ( cp->dio_adr  +  (FIFO_Control_Group_l ^3 ) ,  0x01); 


} 


***  d  i  o  d  r  v  r_  d  m  a  _  g  r  o  u  p  1 

*** 

void  diodrvr_dma_groupl (card_t  *cp,  int  *arg) 

{ 

#if def  DEBUG 

printf  ( "progamming  groupl  Dma\n"  )  ; 

#endif 


/*  Specify  DMA  Channel  to  use  (5=both  channels)  */ 

Out8 ( cp->dio_adr  +  (DMA_Line_Control_Group_l ~3  )  ,  *arg) ; 


/******■******************************************************************* 

***  diodrvr_intr_countexp 

*** 

**************************************************************************/ 

void  diodrvr_int_countexp  (card_t  *cp  ) 

{ 

/*  Program  the  interrupt  to  occur  on  CountExpired  */ 

Out8 ( cp->dio_adr  +  ( Interrupt_Enable_Group_l ~3 )  ,  0x02);  /*  this  enables  bit  1  */ 
/*  Enable  the  interrupt  line  for  normal  operation  */ 

Out8 (cp->dio_adr  +  ( Interrupt_Control ^3 ) ,  0x08);  /*  this  enables  bit  3  */ 

} 


***  d  i  o  d  r  v  r_  run 

*  *  * 

**************************************************************************/ 

void  diodrvr_run ( card_t  *cp  ) 

{ 

/*  start  the  transfer  in  numbered  mode  */ 

Out8 ( cp->dio_adr  +  ( Protocol_Register_l_Group_l ^3  )  ,  OxOF)  ; 

} 

/************************************************************************* 

***  diodrvr_  stop 

*** 

**************************************************************************/ 

void  diodrvr_stop ( card_t  *cp  ) 

{ 

/*  start  the  transfer  in  numbered  mode  */ 

Out8 ( cp->dio_adr  +  ( Protocol_Register_l_Group_l ~3  )  ,  0x0); 

} 

/********************************************************************* 

*  Read_Important_Registers 

* 

********************^*************************************************/ 


vo>id  Read_Important_Registers (card_t  *cp) 

{ 

uint_t  MARcontents ,  TCRcontents ,  LKARcontents ; 
uint_t  CHOR,  CHCR,  MCR,  DCR,  LKCR; 

#if def  DEBUG 

printf ( "Reading  important  addresses\n"  )  ,- 


/* 


V 


} 


CHOR  =  Inp32 (DMA_BASE_ADDR  +  DMA_CHOR); 

CHCR  =  Inp32 (DMA_BASE_ADDR  +  DMA_CHCR) ; 

MCR  =  Inp3  2 ( DMA_BASE_ADDR  +  DMA_MCR) ; 

DCR  =  Inp32 (DMA_BASE_ADDR  +  DMA_DCR) ; 

LKCR  =  Inp32 ( DMA_BASE_ADDR  +  DMA_LKCR); 
TCRcontents  =  Inp32 ( DMA_BASE_ADDR  +  DMA_TCR) ; 
MARcontents  =  Inp32 ( DMA_BASE_ADDR  +  DMA_MAR) ; 
LKARcontents  =  Inp32 ( DMA_BASE_ADDR  +  DMA_LKAR) ; 


printf ("CHOR  contents  = 
printf ("CHCR  contents  = 
printf ("MCR  contents  = 
printf ( "DCR  contents  = 
printf ( "LKCR  contents  = 

printf ("TCR  contents  = 
printf ( "MAR  contents  = 
printf ("LKAR  contents  = 
#endif 


Ox%x\n",  CHOR); 

Ox%x\n",  CHCR); 

Ox%x\n",  MCR); 

Ox%x\n " ,  DCR) ; 

Ox%x\n ",  LKCR); 

Ox%x\n" ,  TCRcontents) ; 
Ox%x\n" ,  MARcontents) ; 
Ox%x\n" ,  LKARcontents) ; 


#if def  DEBUGTIME 

***  diodrvrReportTime 


* 

*  Name : 

* 

*  Purpose ; 

* 

*  Returns; 

* 


di odrvrReportTime 

Displays  start,  in tr  and  end  time  of  Dma 
None. 


*************************************************************************/ 

static  void 

diodrvrReportTime  (  caddr_t  title,  card_t  *cp,  int  final  ) 

{ 


*  * 


register  struct  timespec  *tv; 
struct  timespec  dtv; 
diodrvr_timeval_t  st; 
diodrvr_timeval_t  et; 
diodrvr_timeval_t  dt; 

/*  report  start  and  interrupt  of  DMA  */ 
if  (  final  ==  0  )  { 

diodrvrDif fTime  (  &cp->start_time ,  &cp->intr_time ,  Scdtv  ); 
diodrvrConvTime  (  &dtv,  &dt  ) ; 
diodrvrConvTime  (  &cp->start_time ,  &st  ); 
diodrvrConvTime  (  &cp->intr_time ,  &et  ); 

printf  ("\n%s:  %s  DMA,  %d  Bytes\n"  , 

title,  cp->dmatype  ==  DMA_CHAIN  ?  "Chain” : "Single" ,  cp->dmasize  ) 

printf  (" Start : \t%8dmsec  %8dusec  %8dnsec\n"  , 

st . diodrvr_msec ,  st . diodrvr_usec ,  st . diodrvr_nsec ) ; 
printf  ( " Intrp : \t%8dmsec  %8dusec  %8dnsec\n"  , 

et . diodrvr_msec ,  et . diodrvr_usec ,  et . diodrvr_nsec ) ; 
printf  ( "Dif f : \t%8dmsec  %8dusec  %8dnsec\n"  , 

dt . diodrvr_msec ,  dt . diodrvr_usec ,  dt . diodrvr_nsec  ) ; 


} 


return ; 


/*  report  the  time  difference  of 


diodrvrDif fTime 
diodrvrConvTime 
diodrvrConvTime 
diodrvrConvTime 


(  &cp->call_time , 
(  &dtv,  &dt  ) ; 

(  &cp->call_time , 
(  &cp->ret_time , 


call  came  in  and  return 

&cp->ret_time ,  &dtv  ); 

&st  )  ; 

&et  )  ; 


time  * / 


printf  ("\n%s:  final  Call  analysis\n"  ,  title  ); 
printf  ( "Call : \t%8dmsec  %8dusec  %8dnsec\n"  , 

st . diodrvr_msec ,  st . diodrvr_usec ,  st . diodrvr_nsec  ); 
printf  ( "Ret : \t%8dmsec  %8dusec  %8dnsec\n"  , 

et . diodrvr_msec ,  et . diodrvr_usec ,  et . diodrvr_nsec  ); 
printf  ( "Dif f : \t%8dmsec  %8dusec  %8dnsec\n"  , 

dt . diodrvr_msec ,  dt . diodrvr_usec ,  dt . diodrvr_nsec  ); 


} 

#endif 


/************************************************************************* 
***  diodrvrUserTime  * 

* 

*  Name:  diodrvrUserTime 

* 

*  Purpose:  Returns  timing  to  user  at  end. 

* 

*  Returns:  None. 

* 


*************************************************************************/ 
static  void 

diodrvrUserTime  (  card_t  *cp,  int  *arg  ) 

{ 


struct  timespec  dtv; 
diodrvr_timeval_t  dt; 


/*  report  the  time  difference  of  call  came  in  and  return  time  */ 

diodrvrDif fTime  (  &cp->call_time ,  &cp->ret_time ,  &dtv  ); 
diodrvrConvTime  (  &dtv,  &dt  ) ; 


*arg 


dt . diodrvr_msec  * 


1000000  +  dt . diodrvr_usec  *  1000 


dt . diodrvr_nsec 


} 


/ * ************************************************************************ 
***  d  i  o  d  r  v  r  D  i  f  f  T  i  m  e 

* 

*  Name:  diodrvrDif fTime 

* 

*  Purpose:  Given  two  timespec  struct,  it  calculates  the  difference 

* 

*  Returns:  None . 

* 

*************************************************************************/ 


static  void 

diodrvrDif fTime  (  struct  timespec  *st,  struct  timespec  *et,  struct  timespec  *dt  ) 

{ 

register  long  s_sec,  e_sec; 

register  long  s_totn,  e_totn,  diff_n; 


s_sec  =  st->tv__sec; 

s_totn  =  (s_sec  *  1000000000L)  +  st->tv_nsec; 


e_sec  =  et->tv_sec; 

e_totn  =  (e_s ec  *  1000000000L)  +  et->tv_nsec ; 

diff_n  =  e_totn  -  s_totn; 

dt->tv_sec  =  0; 
dt->tv_nsec  =  diff_n; 

i£  (  dif f_n  >  1000000000L  )  { 

dt->tv_sec  =  diff_n  /  1000000000L; 
dt->tv_nsec  =  diff_n  %  1000000000L ; 

} 

} 


/************************************************************************* 
***  d  i  odrvrConvTime 

* 

*  Name:  diodrvrConvTime 

* 

*  Purpose:  Converts  a  timespec_t  to  diodrvr_timeval_t 

* 

*  Returns:  None. 

* 

*************************************************************************/ 

static  void 

diodrvrConvTime  (  struct  timespec  *ts,  diodrvr_timeval_t  *ct  ) 

{ 

long  totn,  sec,  msec,  usee,  nsec; 


totn  =  (ts->tv_sec  *  1000000000L)  +  ts->tv_nsec; 


sec 

=  msec  = 

usee  = 

nsec  =  0; 

/* 

round  up 

nano  to 

micro  */ 

if 

(  totn  > 

1000L  ) 

{ 

usee 

=  totn 

/ 

1000L; 

} 

nsec 

=  totn 

a 

X) 

1 0  0  0  L  ; 

/* 

round  up 

micro  to 

mili  *, 

if 

{  usee  > 

1000L  ) 

{ 

msec 

=  usee 

/ 

1000L ; 

usee 

=  usee 

o, 

X) 

1 0  0  0  L  ; 

} 

/* 

round  up  mili  to 

seconds 

if 

(  msec  >  1000L  ) 

{ 

sec  =  msec 

/ 

1000L; 

msec  =  msec 

Q, 

X) 

1000L; 

} 


ct->diodrvr_sec 

ct->diodrvr_msec 

ct->diodrvr_usec 

ct->diodrvr_nsec 


sec ; 
msec  ; 
usee  ; 
nsec  ; 


*  *  * 


} 


E.  Framebuffer  schematics 

The  following  pages  contain  the  electronic  schematics  of  the  MVD  framebuffer 
electronics. 
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F.  Vacuum  chamber  mechanical  drawings 

The  following  pages  contain  the  mechanical  drawings  of  the  vacuum  chamber 
designed  to  be  used  for  filling  the  large  MOE  liquid  crystal  shutter  cells. 
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G.  Cell  press  mechanical  drawing 

The  following  pages  contain  the  mechanical  drawings  of  the  hydraulic  cell  press 
designed  to  press  the  MOE  liquid  crystal  shutter  cells  down  to  a  uniform  thickness. 
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H.  MOE  Driver  Schematics 

The  following  pages  contain  the  electronic  schematics  of  the  MVD  framebuffer 
electronics. 
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,  J6 —It 
>46-12 
>46-13 

>  J6— 14 
>46-15 
>46-16 
>46-17 
>46-18 
>46-19 
>46-20 
>46-21 
>46-22 
>46-23 
>46-24 
>46-25 
>46-26 
>46-27 
>46-28 
>46-29 
>J6-30 

>  J6-31 
,46-32 


N.C. 


N.C. 

N.C. 


N.C. 


+  12VDC 

A 


+  5VDC 

A 


safe 


AGND 

+300VDC 

A 


N.C. 


N.C. 

N.C. 


N.C. 


CHBt35:39] 


>  J10-1 

,410-2 

>410-3 

,410-4 

,410-5 

,410-6 

,410-7 

,410-8 

,410-9 

,410-10 

,410-11 

,410-12 

,410-13 

,410-14 

,410-15 

,410-16 

,410-17 

,410-18 

,410-19 

,410-20 

,410-21 

,410-22 

,410-23 

,410-24 

.410-25 

,410-26 

.410-27 

.  410-28 

,410-29 

,410-30 

,410-31 

,410-32 


N.C. 


N.C. 

N.C. 


N.C. 


CHBt  40:44] 


411-1 

411-2 

411-3 

411-4 

411-5 

411-6 

411-7 

411-8 

411-9 

411-10 

411-11 

411-12 

411-13 

411-14 

411-15 

411-16 

411-17 

411-18 

411-19 

411-20 

411-21 

411-22 

411-23 

411-24 

411-25 

411-26 

411-27 

411-28 

411-29 

411-30 

411-31 

411-32 


N.C. 


N.C. 

N.C. 


N.C. 


CHB[Q0:49] 

CHAt00:49] 

\ 

i 


+12VDC 


+  5V0C 


A 

L 


safe 


AGND 


+300VDC 

A 


l 


'DC 


J17,  18  connect  to 
the  high  voltage 
power  supply. 

AGND 

:s  to  J15. 


@  - — - 


TP  =  Test  Point 

CGND  =  Chassis  Ground 

mk 

AGND  =  Analog  Ground 
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CHBC  15:19] 


CHAC  15:191 

( 

:ha  5  ^ 

>  ! 
( 

,  i 

< 

V  1 

1 

v 

v - : 

Clfl-S — P 

CHBC20:24] 
CHAf  20:24] 


+  12VDC  _j= - 

-  A  V  AGND 

I _ 

DC  safety  interlock 


J6-1 
06-2 
,  J6  —  3 
06-0 
,  J6-5 
,J6-6 
,J6-7 
,  J6  —  8 
,J6-9 
,J6-10 
,06-11  , 
„  J6— 12  1 
,06-13 

,  J6  —  1 4 

,06-15 

,06-16 

,06-17 

,  J6— 18 

,06-19 

,06-20 

,06-21 

,06-22 

,06-23 

,06-20 

,06-25 

,06-26 

,06-27 

,06-28 

,06-29 

;j6-30 

,06-31 

06-32 


+  12VDC  <-£= - 

^  \/  AGND 

I _ 

+5VDC  safety  interlock 


+300VDC 

▲ 


>47-1 

>07-2 

,07-3 

>J7-4 

,07-5 

,07-6 

,07-7 

,07-8 

,07-9 

,07-10 

>42-11  . 

,07-12  ' 

,J7-13 

C  07— 14 

,07-15 

:  J7-16 

,07-17 

,07-18 

,07-19 

<07-20 

<07-21 

< J7-22 

<  J7-23 
<07-20 
<07-25 
<07-26 
<07-27 
CJ7-28 
<07-29 
<07-30 
<07-31 

<  07-32 


H8C  40:44] 

■  HA[40:44] 


- ^ 

> 

V  . 

*HB40 5 

. 

-HA41  > 

^HB41  > 

, 

111 

, 

<HA43 

,  . 

<HB43 

<HA44  < 

?HB44  _5 

+12VDC 


safety  interlock 


011-1 
011-2 
011-3 
011  —  4 
011-5 
011-6 
011-7 
.  J11-8 
.  011-9 
.  011-10 
.  011-11 
.  011-12 
,  J11-13 
,  J11-14 
,  011-15 
,  011-16 
,  011—17 
,  011-18 
,  011-19 
,  011-20 
,  011-21 
,011-22 
,  011-23 
,011-20 
,011-25 
,011-26 
,011-27 
,011-28 
>011-29 
>011-30 
,011-31 
,011-32 


CHBC  00:49] 
CHA[Q0:49] 


+  12VDC  _J= - 

£  Vagnd 

I _ 

+  5V0C  saf e t y  interlock 


+300VDC 

▲ 


.  012-1 
,  012-2 
,  012-3 
,012-0 
,012-5 
,012-6 
,012-7 
,012-8 
,012-9 
,012-10 
,012-11 
,  012-12 
,  012-13 
,  012-10 
,  012-15 
,  012-16 
,012-17 
,  012  —  18 
,  012-19 
,  012-20 
,012-21 
,  012-22 
C  012-23 
,012-20 

<  012-25 
,012-26 
,  012-27 
,  012-28 
<012-29 
<012-30 

<  012-31 

<  012-32 


TP  =  Test  Point 
CGNO  =  Chassis  Ground 
AGND  =  Analog  Ground 
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